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ABSTRACT 


A FORTRAN 77 computer code employing an adaptation of the 
finite differencing algorithm proposed by Brian was developed for the 
solution of transient heat conduction problems in cylindrical geome- 
tries. Validation of code was accomplished by comparison with an ana- 
lytic solution derived for a model with symmetric, linear boundary 
conditions. Accuracy of results for asymmetric and non-linear bound- 
ary conditions was determined by comparison with a similarly vali- 
dated code employing the explicit method. Code effectiveness was 
then demonstrated by conducting a transient temperature analysis for 
a simulated earth-orbiting satellite. Brian’s method demonstrated 
unconditional stability with associated significant reductions in execu- 
tion time compared to the explicit method. The effects of discretiza- 


tion error on the accuracy of results require further investigation. 
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I. INTRODUCTION 


A BACKGROUND 
Analysis of transient heat-conduction problems necessarily 
involves solution of the heat diffusion equation. In the absence of 
internal generation of energy, this is represented by 
V-(kKVT)=p nee (1.1) 
Although analytic solutions may be obtained to certain simple transient 
problems [Ref. 1:p. 212], many of the practical problems encountered 
by engineers involve one or a combination of nonlinearities, complex 
geometries, complex boundary conditions, or systems of coupled par- 
tial differential equations of which any one may necessitate the use of 
numerical methods. Although Monte-Carlo (probability sampling) and 
finite-element methods have been applied to the solution of heat-con- 
duction problems, the approximation of partial derivatives by finite 
differences presents a straightforward and popular approach [Ref. 2:p. 
471}. Two fundamental finite-difference techniques are the implicit 


and explicit methods and their derivatives. 


B PROBLEM 
The analysis of transient heat-conduction problems in three 
dimensions is of great importance to many fields of science and engi- 


neering, but solutions are often quite costly in terms of computational 


effort and time consumed in their solution. Numerical solutions to 
these problems frequently tax the computational and storage capaci- 
ties of available computers [Ref. 3:p. 367]. 

The explicit method offers the benefits of relatively low storage 
requirements and simplicity in formulation, coding, and execution. 
However, it is only conditionally stable and is subject to a limitation on 
the maximum timestep which may be employed. If the maximum 
timestep is exceeded, the solution experiences numerically induced 
oscillations which may cause the solution to diverge from the correct 
result [Ref. l:p. 214]. This timestep restriction causes the explicit 
method to be inefficient in terms of Aoraetesional effort for the analy- 
sis of lengthy transient periods. 

The implicit method offers the advantage of being unconditionally 
stable and therefore exempt from timestep restrictions. However, this 
method calculates node temperatures by the simultaneous solution of 
the nodal heat balance equations. Thus, savings gained from the lack of 
a timestep restriction are often quickly offset by the increased 
computational effort associated with the required matrix inversions. 

The implicit alternating direction method (ADI) is an uncondi- 
tionally stable extension of the implicit method which reduces the 
number of required computations by transforming the problem into 
tridiagonal form. However, a direct extension of this method into 
three dimensions becomes only conditionally stable, is restricted to a 
maximum timestep in a fashion similar to the explicit method, and 


demonstrates similar shortcomings [Ref. 4:p. 453]. 


CG REQUIREMENT 


A finite difference technique which is unconditionally stable in 


three dimensions and unencumbered by the requirement to manipu- 


late large matrices is required for the solution of transient heat- 


conduction problems in three dimensions. The algorithm proposed by 


Brian [Ref. 3] offers such a technique. 


D. 


OBJECTIVES 


. Adapt the algorithm proposed by Brian to the solution of three- 


dimensional transient heat-conduction problems in cylindrical 
geometries. 


. Evaluate the relative accuracy of the results obtained using Brian’s 


Method by comparing them against those obtained using the 
explicit method. 


. Evaluate the speed of execution of Brian’s Method relative to that 


of the explicit method in terms of central processing unit (CPU) 
seconds. 


. Illustrate the relative benefits derived from the Brian’s Method by 


applying it to the solution of an application problem involving 
long-period transient behavior. 


Hf. THEORY 


A FUNDAMENTALS 
1. Material Properties 

The capacity for energy storage and rate of energy transfer 
within a medium are functions of the material’s thermophysical prop- 
erties. Isotropic materials, such as metals and alloys, are uniform in 
nature and their properties generally demonstrate only negligible 
directional and temperature dependence. However, layered or strati- 
fied materials, such as glass-reinforced plastic (GRP) or laminates, may 
demonstrate strong dependence on both direction and temperature. 
While directional dependence of properties is generally linear in 
nature, temperature dependence is strongly nonlinear and will not be 
addressed. 

a Heat Capacity 

The rate of change of energy storage per unit volume 

within a solid, isotropic medium is determined by the product of its 
density (Kg/m3), specific heat (KJ/KgK), and the time-rate of change 


of its temperature: 
2 Se (2.1) 


Both density and specific heat may be temperature and/or direction- 


ally dependent properties. 


b. Thermal Conductivity 
The thermal conductivity (W/mK) is a transport property 
(i.e., one affecting the movement of energy) of the material and is 
defined in the x-coordinate direction as 
k= aS (2.2) 
var) 
Isotropic materials generally demonstrate relatively constant thermal 
conductivity over broad temperature ranges, whereas metallic lami- 
nates demonstrate a strong directional dependence within the plane 
of each different material. Composite materials show both strong 
directional and temperature dependence. Temperature-dependent 
material properties will not be addressed. 
c. Thermal Diffusivity 
The thermal diffusivity (m2/s) is a grouping of the mate- 
rial density, specific heat, and thermal conductivity and represents 
the controlling transport property for transient heat conduction [Ref. 


l:p. 41] 





(2g03)) 


d. Convection Heat Transfer Coefficient 
The convection heat transfer coefficient (W/m2K) 
encompasses all of the effects that influence the convection mode and 


is dependent upon boundary conditions, surface geometry, the nature 


of the fluid motion, and a number of other fluid thermodynamic and 
transport properties [Ref. l:p. 8]. 
e. Properties Affecting Radiation 

Various surface properties affect the radiative character- 
istics of a solid material. Directionally integrated or hemispherical val- 
ues are often adequate although these properties are still strongly 
dependent upon the wavelength of the radiant energy. Where appro- 
priate, consideration of the wavelength dependence will be indicated 
by a subscripted Greek letter lamda (A). 

(1) Emissivity. The emissivity (€) is a surface property 
representing the ratio of total energy emitted by an actual surface and 
an identical black surface at the same temperature. The emissivity may 
be altered by one or a combination of mechanical processes (e.g., 
sandblasting or metal-spraying) or by application of various films and/ 
or coatings, either by design or through service conditions. 

(2) Surface Properties. Absorptivity (a) and reflectivity 
(9) are surface properties representing the fractions of total incident 
energy which are respectively absorbed and reflected by the surface. 
For opaque surfaces, the sum of the absorptivity and the reflectivity 


equals one 


a+ p=1 (2.4) 


In addition to absorption and reflection, translucent materials allow a 


fraction of incident radiation to be transmitted through the material. 


Consequently, an additional property, transmissivity (t), must be 


incorporated into Equation 2.4, yielding 


a+ p+T=1 (2a) 


(3) Radiation Heat Transfer Coefficient. The radiation 
heat transfer coefficient (W/m2K*) is a collection of terms resulting 
from the linearization of the radiation heat transfer calculation from a 


gray, diffuse surface in extensive surroundings and is represented as 


R= eotl, + TanG@e tan (2.6) 


where o is the Stefan-Boltzman Constant (5.67 x 10°8 W/m?K) and Ts 
and Tsur are the absolute temperatures of the surface and the sur- 
roundings, respectively. As is apparent from Equation 2.6, this term is 
strongly temperature dependent and non-linear in nature. 
2. Heat Transfer Rate 
The heat flux (W/m2) is rate of heat transfer per unit surface 


area and may be represented by 
0" E 


The heat transfer rate (W/m2s) is thus the product of the heat flux and 


the surface area normal to the direction of heat flow [Ref. 1:p. 4]. 


3. Rate Equations 
The three principle modes of heat transfer are conduction, 
convection, and radiation. The rate of heat transfer attributed to each 
mode is described by the appropriate rate equation. 
a Conduction Equation 
The governing equation for conduction is Fourier’s Law, 


given for the x-direction by 


en ne! Ol 
gq” =—k = (2.8) 


x x 


b. Convection Equation 
The relation governing convection is known as Newton's 


Law of Cooling and is given by by 


Ge a h, (T, a T5) (2.9) 


where Ts is the surface temperature and T.. is the temperature of the 
surrounding fluid. 
c. Radiation Equation 
The maximum flux at which radiation may be emitted by 
a surface to an infinite, black surrounding is determined by the Stefan- 


Boltzman Law 


Gs = h, (by = jee, (23 10) 


where Ts is the surface temperature and Tsy; is the temperature of 


the surrounding enclosure [Ref. 1:p. 9]. In reality, objects exchange 


energy with surrounding enclosure boundaries in accordance with the 


relation 


cae, ACs 1-1) O30 


where F is the view factor representing the fraction of the radiation 
emitted by the surface of interest that is intercepted by the it? surface 
of the confining enclosure. Implicit in Equation 2.11 is the assumption 
that all surfaces of the surrounding enclosures are black. 
4. Heat Balance—The First Law of Thermodynamics 

The temperature at a given point may be determined from 
establishment of an arbitrary control volume around the point (Fig- 
ure 1) followed by application of the first law of thermodynamics (the 
law of conservation of energy). Excluding heat which is generated 
within the confines of the control volume (internal generation), this 
law may be simply stated as 


The rate at which thermal and mechanical energy enters a control 
volume minus the rate at which this energy leaves the control vol- 
ume must equal the rate at which this energy is stored in the 
control volume. [Ref. 1:p. 12] 


With the addition of any heat genetrated internal to the control vol- 
ume, the first law may represented in the form of the heat balance 
equation: 


E,= E,+ Eryn E, 


oul 


(2-7) 





Figure 1. Control Volume 


where 


E, = Rate of energy storage 


, = Rate of energy gain 


ot = Rate of energy loss 


sen = Rate of energy generation. 


B FINITE DIFFERENCE APPROXIMATIONS 
1. General Approach 

The numerical solution of transient, heat-conduction prob- 
lems by digital computer requires the transformation of the heat con- 
duction equation into a form which allows differentiation to be 
approximated by finite differences [Ref. 2:p. 472]. This may be accom- 
plished by dividing the problem into a number of discrete points, or 
nodes, each surrounded by an associated control volume (Figure 2(A)). 
Conducting an energy balance on each control volume yields a system 
of linear algebraic equations which describes the temperature field. In 


the absence of round-off error, the solutions obtained from finite 


10 


difference approximations tend to the analytic solution as the step size 


and grid spacings tend to zero [Ref. 4:p. 449]. 





Type 1—End-layer, inner-surface 


Type 2—End-layer, mid-radius 
Type 3—End-layer, outer-surface 
Type 4—Mid-layer, inner-surface 
Type 5—Mid-layer, mid-radius 
Type 6—Mid-layer, outer-surface 


Figure 2. (A) Reference Grid; (B) Node Types 


1] 


a. Geometry 

Figure 2(B) depicts a right-circular cylinder to which has 
been applied a polar-cylindrical coordinate system and an arbitrary 
grid which divides the cylinder into a number of nodes, each sur- 
rounded by an associated control volume. Nodes may be characterized 
as belonging to one of six types and are located at the grid intersection 
points. Each node may be associated with a specified layer, ring, and 
ray. 

(1) Layers. Layers lie parallel to the x-y plane and are 
numbered sequentially beginning in the x-y plane and proceeding in 
the direction of the positive z-axis. Layers are spaced a distance Az 
apart. Note that the end layers are in the plane containing the ends of 
the cylinders. 

(2) Rings. Each layer is divided into an arbitrary number 
of concentric rings spaced a distance Ar apart. The node at the three 
o'clock position when viewed from above has been arbitrarily desig- 
nated as node one. Other nodes are numbered sequentially in a 
counter-clockwise direction from node one. 

(3) Rays. Rays emanate outward from the origin in the 
plane of the layers. Nodes lie along the rays at intervals of Ar and are 
numbered sequentially from the inner surface outward. 

b. Subscripting Convention 

To simplify notation in the development of equations, the 

designation of nodal grid coordinates will follow the convention con- 


tained in Table 1. 


LZ 


TABLE 1 
NODAL SUBSCRIPT CONVENTION 


Subscript Location Grid Coordinates* 

N Northern (upper) neighbor [r,o,(z+1)] 
S Southern (lower) neighbor [r,o,(z-1)] 
E Eastern (right) neighbor [r,(o-1),Z] 
W Western (left) neighbor [r,(0+1),Z] 
] Inner neighbor [(r-1),0,z] 
O Outer neighbor [((r+1),0,z] 
e Edge (varies) 


* All grid coordinates are relative to the node of interest when viewed 
from the inside of the cylinder. 

In view of the inverse symmetric relationship existing 
between equivalent nodes at the upper and lower surfaces, the sub- 
script e will be used to designate temperatures, fluxes, and properties 
associated with the end layers, thus reducing the number of required 
equations by half. The reader must substitute the appropriate subscript 
(i.e., N or S) depending upon the location or application of the equa- 
tion. This issue will be further elaborated upon in the equation devel- 
opment example. 

c. Superscripting Convention 
Superscripts, as contained in Table 2, will be employed 


to indicate at which timestep a value is considered. 
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TABLE 2 
NODAL SUPERSCRIPT CONVENTION 


Superscript Timestep Time 
n Current t 
n+1 Next t + At 
n+1/2 Intermediate t+ At/2 
d. Example 


Consider the one-dimensional heat conduction problem 


represented in Figure 3 wherein T,=T,, heat is being conducted in 


the radial direction only, and the control volume is of unit thickness. 


T, 


0 


& 
ae 


] 


Figure 3. One-Dimensional Heat Conduction Problem 


The appropriate heat balance equation is 


E,= E,- E, (2a 
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The time-dependent storage term (£,) may be represented by its 
finite difference approximation 


Pee CV (2.14) 


where At is the step size, T™ is the node temperature at the old (n) 
timestep, T"+! is the node temperature at the new (n+1) timestep, 


and the volume is approximated as 


Ard 
yee (2255) 


The heat rate in the radial direcrion at the inner bound- 


ary (E,) of the control volume may be approximated as 


(T’ - Tica 
ial ne aa rama (2.16) 


where 


A,=(r-S)ag OA) 


is the area of the control volume in the direction of heat flow. Simi- 


larly, the heat rate at the outer boundary may be approximated as 


4 ne _ jo 
a (2.18) 
where 
Ag=(r+57)A rag (2.19) 
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Substituting these into Equation 2.13 yields the finite 


difference form of the heat equation 


2 At Ar 


A kK (r+ Ar)jA@ 


ay oe 


The steps leading up to and including the formation of Equation 2.20 
are common to both the explicit and Brian’s methods. 
Similar equations may be obtained for other nodes and 
boundary conditions. 
2. The Explicit Method 
The explicit method is a direct application of the general 
approach to finite difference analysis detailed in the preceding sec- 
tion. Equations describing the temperature at the new time level are 
formed for each node by conducting a heat balance on the associated 
control volume. Temperatures at the new time level may then be 
approximated explicitly by substituting temperatures at the old time 
level into the appropriate node equation. The explicit form of the one- 
dimensional heat conduction problem of the preceding section may be 
obtained from Equation 2.20 by dividing by the lead coefficient on the 
left-hand side, substituting for the grid Fourier number, and solving 


for the new temperature, yielding 


n+] An (r- $5) n A (r+) n n 
T' = 7" + Fo |—~—=—(T'- T")+ —-— (73 -T"")| (2.21) 
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where 


Fo= 5 (2.22) 
Defining the constants 
(r- 55) 
C= ar ae (2.23) 
and 
(r+ SE) 
See (2.24) 


and grouping the T” terms outside of the the parentheses yields 
T’” = Fo(c,T’ +7 )+[1- Folc,+ c,)]T’ (2.25) 


from which the stability criterion on the timestep may be determined 


from the relation 


eS hoe seach (2.26) 


eer 1:p. 215] 
3. Brian’s Method 
In Brian’s Method, the node types are the same as depicted 
in Figure 2. However, the temperature at the new time level is formed 


from a combination of values taken from the old time level and three 
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directionally dependent temperature arrays formed at an intermediate 


time 

ei AU (2227) 
2 

Although each of these arrays requires a full complement of supporting 

node equations, the equations are quite similar and enjoy a common 

derivation with the explicit method for the initial stages of their 

development. 

Each intermediate array is associated with one arbitrarily 
assigned coordinate direction and has its temperatures denoted by the 
superscripting of one, two, or three asterisks. Calculation precedence 
must follow the order of star level, two-star level, three-star level, and 
new temperature arrays! 

Within each intermediate calculation process, temperatures 
are determined by solution of a tridiagonal matrix of coefficients of 
nodes lying along the specified coordinate axis. For example, equations 
for the r-direction nodes at the star level in a one-dimensional heat 


conduction problem are of the form 
AT, + BT’ + CT, = D(T’) (2.23) 


Although Brian’s method is conceptually no more difficult 
than the explicit method, it involves considerably more algebra and is 
best illustrated in the form of the code development model contained 


in the following chapter. 
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II. DERIVATION OF EQUATIONS 


A. MODEL FOR CODE DEVELOPMENT 
1. General 

In this chapter, detailed descriptions of the explicit and 
Brian’s methods will be presented in the form of the model employed 
for the development of code. 

2. Problem Description 

Selection of a model with simplicity and symmetry of geome- 
try and boundary conditions was made to facilitate error checking and 
the comparison of results during code development. The preliminary 
model consisted of a right-circular cylinder of uniform properties with 
adiabatic ends and specified initial temperature distribution (initial 
condition) and constant inner-surface temperature of zero degrees 
Celsius. An arbitrary grid consisting of five layers in the z-direction, 
each with three and four nodes respectively in the radial and phi- 
directions, was applied to the cylinder in a fashion similar to that 
depicted in Figure 4. At time t = O, a uniform, constant heat flux was 
applied to the outer surface. Subsequent modifications to the model 
added radiative and convective boundary conditions at all surfaces as 
well as directionally-dependent thermal conductivities. Temperatures 
are in terms of the rise above the initial temperature (excess 


temperature) [Ref. 1:p. 100}. 


WS, 


Specified Temperature 
Adiabatic End 





; 


Adiabatic End 


Figure 4. Model for Code Development 


B EXPLICIT METHOD EQUATIONS 

The process for development of equations using the explicit 
method is similar for all node types. For illustrative purposes, we will 
consider a Type 1 node located at the inner edge of the bottom sur- 
face of the cylinder as depicted in Figure 5. Complete equations for all 
node types are included as Appendix A to this report. Directionally 
dependent thermal conductivities and radiative and convective bound- 
ary conditions are included in this development. Heat flow into and 


out of the associated control volume is represented in Figure 6. 
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(r+Ar),o, z 


r,Q,zZ 
r(@ + Ag), z r,(@ —Ad),z 
A. Plan View 
r,), (zee Az ) 
r(d@ +Adg), z eOraz r,(@ -Ag),z 


B. Frontal View 
Figure 5. Bottom Layer, Inner Surface Node Configuration 


oe 


Es 
Figure 6. Heat Balance 
The heat balance equation is 
E,= E,- E,- E,-E, - Ey - E, (Sap) 


Application of appropriate finite difference approximations results in 


Cerin (T, — T’) (Tp +T/ -2T") 
pCV a, = k, A, Sp + kA, ag SCO) 
1) ae 
te Ay rn E. alg i 
where 
(r+ SA rAg Az 
i (33) 


Zi 


(r+ SAG Az 


SS (3.4) 
A rAz 
A,=—q (3.5) 


(r+ SA rag 
A,= a (3.6) 


We note in Equation 3.2 that the conduction terms are evaluated 
at time level n in order to allow explicit solution of the temperatures. 
Evaluation of E, and E, reveals that these terms are comprised of the 
sum of the incident surface heat flux and the terms associated with 
heat loss (or gain) by convection and radiation. The convection term is 


linear and may be approximated as 


nt} 


Ge = A(T — i) (2.7) 


where he is the convection coefficient at the appropriate surface and 
Tx. is the temperature of the surrounding fluid. The radiation term is 
non-linear and cannot be directly applied as a function of T™+!. A lin- 
earization of the radiation equation may be accomplished by defining 


the radiation coefficient at the previous (n) timestep 
h,= €O(T" + Ta)[(T’) + Tae) (3.8) 


where 


ati 


7 ie ar ie (T - fa) (3.9) 
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which reduces the approximation of the radiation term to the first 
power of T+! and Tsu; is the temperature of the surrounding envi- 
ronment to which it radiates. Thus, the boundary conditions may be 


represented as 


E,=A,lq’,-he (T"-T.)-h, (T'"-7.)] (3.10) 
and 
E, = A,| Que (TS tte aT) (3.11) 
where 
A = alas dak (3.12) 


Substituting for E. and E, into Equation 3.2 yields 


(Tes (T, - T’) Ci ina— ia 
Dev ao. Ss & Se aaa Veta 2 SO) a (3.13) 
(T, - T *) ” at] a+} 
thy Ag ret gra Clea )+ hy For 7 )| 


- A,| 4", tate (Hi pa yer fi (Pra = rT”) 
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Substituting for the volume and area terms yields 


A A oer 
(r+ "yar Ag Az cp _ pry kiln + ArAg (r" -T") 


See eee ee 3.14 
oe 4 At 2 Az ( 


n n n Ar n n 
k,ArAz (Tp +Ty~ 27) k,(r + 5 )Ad Az (T,-T) 
4 rAd y Ar 


(r + a arag 
a. 


n+l n+l 


Cee ace. Gee—T )] 
S S 


ntl 


rAgAzr , 
| +h, (T,-T 
2 / 


Nah Tie ry] 


By defining the directional thermal diffusivity 


iM 





Us INGE (3.15) 
and grid Fourier number 
_ At 
es A 2? (3.16) 


we may simplify by arbitrarily dividing by the lead coefficient of the z- 


direction difference approximation to obtain 


ZS 


Zz 
1 n+] k,Az 


T° —T )=@ aoe: 





(T,+T, -2T’) 





2Fo Ar 2 
2k,r(r+ ji ) Ap (3.17) 
KC ae 
Se (fT oS T") 
Ar pee 
LG arene) YAN g 
4 
Az , ntl n+l 
+= [¢ thee iy na i) 
k, : A) S 
Z nt n+ 
+ Od the (ToT) +h, Toe - TY) 
kt oS" )Ar : / 
4 
Further simplification may be realized by defining the constants 
: kA a 
a Rive (3.18) 
De k, r( r+ Ag 2 
fe lr se SE az? 
2 Ar (3.19) 
7 re 
ao (3.19) 
c= Ae 
; kiCrt+ A yA r (3.20) 
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Substituting into Equation 3.16 and rearranging to yield 


l atl nv —— n n an n a n 
a oe atc) ae 27) co (T (3.91) 


Ge) — at) 
OG ales Ce Nes i, UN ee 


Expansion and regrouping of terms yields the final form of the 


node equation for the temperature at the (n+1) timestep 
pe" = E47" + 2Fo[(T, - T")+ o(Tz + Ty 27") + 0(T3- T*) (3.22) 
+ ¢,(q”, + h, Toth, Taw) 
tr GS se h, T. + h, T ow)|} 
where 
Cs=1+2Fo[ c(h. + h, )+ Cah + h, )] (3.23) 


Thus, the temperature for each node at the successive time step 
may be solved for explicitly in terms of node temperatures at the pre- 


vious timestep. 


CG BRIAN’S METHOD 
1. Step One (z-Direction) 
This section addresses procedures governing the develop- 


ment of equations associated with the first intermediate, or star-level, 


Ze 


temperature array to which the z-coordinate direction has been arbi- 
trarily assigned. Equation 3.21 may be applied to step one by substi- 
tuting asterisk-superscripted variables for all n+l superscripted 
variables and those n-superscripted variables which lie along the z- 
coordinate direction. Because the intermediate time step is half the 
overall value, the effective grid Fourier Number is half that employed 
in the explicit method. Thus, for step one of Brian’s Method, Equation 


3.21 becomes 
Lor -1")=(0y- 7) + G(T E+ Th -27")+ o3-T") (3.24) 
pig (US) ik, (PB) 
+ 6, Gy, ate nee On = 27, 


Expanding and grouping like terms of starred quantities on the left- 


hand side of the equation yields 


AT. + BT’ + CT. =D (3.25) 
where 
A-0 (3.26) 
B=1+ Fofit c(h, +h, )+ ¢,Che + h, )) (3.27) 
G =— Fo (3.28) 
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DeEwimecenolaChoer — 27 )+¢(7,— 1") (3:29) 


CCG eamin Path, To.) 
R) S 


tt GAG Be h, T. + h, T sw) 


This process is repeated until similar equations are derived for each 
node type. 
2. Step Two (o-Direction) 

Derivation of step two equations is an extension of the proce- 
dures employed in the preceding section with the phi-axis now arbi- 
trarily designated the two-star coordinate direction. In this step, 
beginning with Equation 3.24, which already contains the initial step 
one substitutions, we add further modifications by substituting two- 


star subscripted variables in the same manner as before. This yields 
q(T" - T")=(T,- 7’) + G(T y+ Ty -2T") + ¢,(T3 - T") (3.30) 
- C3) 9" —h, es —T.)-h, Us T ae) | 
+ Cal = h, (T —-T_)- h, T— Pour) | 


Again, expanding and grouping like terms of two-starred quantities on 


the left-hand side of the equation yields 


AT? + BT + CT =D (3262) 


a 


where 


A=- C, Fo 


B=1+ Fo| 2c, + Ch Cheat ye ak C3( Ne st: h, )] 
S S 


C=- c, Fo 


BP sera he ae el = I) 
SC w1G) cnyah h, T.. + hy Tsu] 


+ C,(q I 7 he 1. + h, T sw) 


(3.39) 


(3.32) 


(3.33) 


(3.34) 


This process is again repeated until similar equations are derived for 


each node type. 
3. Step Three (r-Direction) 


Derivation of step three equations is an identical extension of 


the procedures employed in the preceding section, with the r-axis 


now arbitrarily designated the three-star coordinate direction. In this 


step, we begin with Equation 3.30 and further modify by substituting 


three-star subscripted variables. This yields 
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1 kK ue nr a * aa ** ak xak xk a 
eee te — 7 tapi et rete = T") (3.35) 


ae G [g - os h, (T"” a Te) = ps = | 
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Again, expanding and grouping like terms of two-starred quantities on 


the left-hand side of the equation yields 


AT" + BT’ + CT’ =D (3.36) 
where 
AsO (3635) 
B=1+ Fol c, + che th, Jt edhe + hy) (3.38) 
C=- Co (3.39) 
Deol he ii caa entities 27 ) (3.40) 


+ ed . th. Ti+ h, T oo) 
S Ss 
+ “+h, T.th, T 
C,(q I a F )| 


This process is repeated until similar equations are derived for each 


node type. 


oe 


4. Step Four (New Temperatures) 

Step four is a direct extension of the procedures employed in 
the explicit method. In this step, the n+l timestep equations are 
derived from the explicit equations by substituting starred values for 
the associated node temperatures for node under consideration. Con- 


tinuing with our example, we substitute into Equation 3.22 to obtain 


a+ 1 3 * * ae ae ae ee see 
Tr’ =—-(T" + o[7,-T)+c0, +t, 27 + o(7, =) Jie 
SG le SEIS I oy) 
S S 
i CAG oo he Tn - h, T sw)| 
where 


Cs=1+2Folc,(he + iy ye cy he + h, )] (3.42) 


Step four equations for each of the six types of nodes are 
derived in an identical fashion. 

Complete node equations in the polar-cylindrical form of 
Brian’s method are included in Appendix B for each of the six node 


types identified in Figure 2. 
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IV. CODE DEVELOPMENT 


A. ANALYTIC SOLUTION 

Analytic solutions to the model described in Chapter II, para- 
graph A.2, were obtained for the range of zero to 300 seconds in five- 
second increments. The calculations of eigenvalues and the resulting 
solutions were made using MATHCAD V2.0 on an INTEL 80386-based 
personal computer. The calculated eigenvalues were verified with tab- 
ular results [Ref. 5] and those obtained by an appropriate IMSL 
subroutine [Refs. 6-10]. Equations describing the complete solution 


are contained in Appendix C. 


B EXPLICIT METHOD 
1. Requirements 
The coding of the explicit method is relatively straightfor- 
ward and subject to only two notable requirements: 


¢ That the selected timestep must not exceed the theoretical 
maximum, and 


¢ That each node be considered for temperature calculation once 
per timestep. 


2. General Procedure 
a Timestep Restriction 
The maximum allowable timestep varies with control 
volume dimensions. Exceeding the allowable timestep for any one 
node will result in the eventual loss of stability of the entire system. 


The rapidity with which this occurs is a function of the affected node's 
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significance in the path of the dominating heat flux. Consequently, a 
maximum timestep must be determined for each node type (Figure 2) 
and the most restrictive taken as the limiting value. This was effected 
through use of the subroutine STABIL, which calculated maximum 
allowable timestep for each node-type and returned the most restric- 
tive as the argument DTMAX. A listing of equations defining stability 
requirements for each node type is contained as Appendix D. 
b. Indexing 

The method by which incrementation through the grid 
system is implemented is entirely arbitrary as long as the temperature 
is calculated once per timestep for each node on the grid. In systems 
with a dominant heat flux, convergence will occur more quickly if the 
dominant direction is incremented first. Appendix E contains the 
explicit method code as developed for this study. A polar-cylindrical 
coordinate system was arbitrarily applied with the z-axis aligned with 
the central axis of the cylinder. Indexing commenced at the inner 
edge of the bottom surface and proceeded up the z-coordinate to the 
upper surface. The grid was then indexed in 9, followed by r, until the 
entire grid had been covered, at which time the old temperature 
matrix was replaced by the new temperature matrix, the time counter 
indexed by At, and the process repeated until the end of the desired 


period of evaluation was reached. 
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Cc BRIAN’S METHOD 
1. Requirements 
a Timestep 

The timestep may be selected as befits the duration of 
the analysis and the expected temperature gradients. However, the 
discretization error is a function of the square of the timestep. On the 
other hand, the property of unconditional stability allows the flexibility 
to initially choose a large timestep for macro-analysis followed by 
application of a smaller timestep for a detailed look at regions of 
interest (e.g., an area where a predefined threshold is exceeded). 

b. Indexing 

A separate temperature matrix must be developed for 
each coordinate direction at the level of the intermediate timestep. 
Due to this directional nature, the indexing requirements are more 
complex and restrictive. Once assignment of a coordinate axis to an 
intermediate matrix (e.g., star-level) has been made, the convention 
must be adhered to for the duration of the timestep. One acceptable 
method for indexing is outlined below and the companion code is 
included as the STEP(#) subroutines to the Brian’s Method code con- 
tained in Appendix F. 

(1) Star Level (z-Cirection). The z-coordinate direction 
was arbitrarily assigned to the star-level intermediate matrix. 
Consequently, equations were developed for nodes lying along the z- 
axis in the fashion described in Section C of Chapter III. Appropriate 


indexing was accomplished by designating an arbitrary node on the 
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inner ring of the bottom surface of the cylinder (Figure 7) as a node of 
reference (node 1). An equation similar to Equation 3.25 was devel- 
oped for this first node and the values of the A, B, C, and D coefficients 
calculated and stored in four associated vectors. The pointer was then 
indexed in the z-direction to select the node immediately above 
node 1 ({i.e., the northern neighbor when developing the equation for 
node 1). The process was repeated for the second node and all other 


nodes lying on the selected z-axis 


x 


Figure 7. Star-Level Indexing Direction 


When the values of the coefficients for the last node had been calcu- 
lated and stored in the appropriate vectors, a tridiagonal matrix solver 
was Called to simultaneously solve the system of equations. The resul- 
tant node temperatures were then saved in the star-level intermediate 


matrix and the.pointer indexed to the next adjacent node in the 
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counter-clockwise 6-direction. Note that at this point, indexing in 
either the radial or the 6-direction would have been equally appropri- 
ate. However, once chosen, the specified direction must be adhered to 
throughout the immediate timestep. 

(2) Two-Star Level (¢-Direction). Because the rings asso- 
ciated with the 9-direction have neither a beginning nor an end, one 
node must be arbitrarily defined as a reference node. Using node 1 
from the one-star level and working in a counter-clockwise direction 
(Figure 8), the values of the coefficients for each node along the cho- 
sen ring were calculated and temporarily stored in suitable vectors. 
The resultant system of equations for nodes in the $-direction was of 


the form 


x 


Figure 8. Two-Star Level Indexing 
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5b Cc 0 a] [7,] [4 
a, b, es 0 T, - d, 
0 a, b, C, T, 7 d, 
C, Q a, b, ie d, (4 “I ) 


which is not tridiagonal. To achieve tridiagonality, the ring was cut at 


the reference node. The resulting coefficient matrix was then of the 


form 
(Ona) G 0 0 
a, b, C, 0 
0 a, b, C, 
0 0 a, (b,- C,) (4.2) 


Node temperatures were then obtained by applying a suitable tridiago- 
nal matrix solver [Ref. 4:p. 441] and stored in the two-star intermedi- 
ate level matrix. The pointer was then incremented to the node 
adjacent to node 1 in the r-direction and the process repeated. Upon 
completion of the first layer calculations, the pointer was indexed in 
the positive z-direction and the process repeated until all two-star 
level temperatures have been calculated. 

(3) Three-Star Level (r-Direction). Construction of the 
three-star temperature matrix was accomplished in a fashion similar 
to the one- and two-star level procedures (Figure 9). Beginning at the 
reference node, the values of the node coefficients were calculated 
and temporarily stored in suitable vectors. When the coefficients for 
the last node on the selected ray had been caluclated and stored, the 


tridiagonal matrix solver was applied to the system of equations, the 
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resultant node temperatures written to the three-star temperature 
array, the pointer indexed to the next adjacent ray in the counter- 
clockwise direction, and the process repeated until all node tempera- 
tures were calculated for the layer. The pointer was then indexed in 
the positive z-direction until all three-star level temperatures had 


been calculated. 





Figure 9. Three-Star Indexing 


(4) New Temperature Array (n+l Level). When all inter- 
mediate matrices had been developed, new node temperatures were 
calculated in terms of the three intermediate temperature arrays and 
the array of temperatures at the previous (old) timestep in accordance 
with the discussion in paragraph 4 of Chapter III. The choice of 
indexing direction at this point was arbitrary, so the method applied 


to the star level was repeated. It must be noted that the new node 
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temperatures must be stored in a separate (new-temperature) array 
until all node temperatures have been calculated. Upon completion of 
the calculations, the new temperature array was printed or stored 
(when appropriate), copied onto the old temperature array, the time 
counter indexed, and the entire process repeated until the limit of the 


period of evaluation was reached. 


D. EXECUTION TIMEKEEPING 

The codes for both the explicit method and Brian’s Method were 
of common origin, had nearly identical main codes, and shared com- 
mon input/output and utility subroutines. The codes were organized 
such that the calculations unique to the specific method employed 
were segregated into a single, cohesive block in the form of one or 
more subroutines. A timing utility which allowed placement within the 
code of pointers to initiate and stop CPU timekeeping was employed 
to measure the execution times of each method for each example or 
application tested. Among other places, pointers were placed at the 
entry to and the exit from the respective method-specific subroutine 
blocks. Benchmark runs exclusive of I/O calls were conducted for each 
method during the validation process. Subsequent runs involving 
printed or stored output were structured such that required I/O han- 
dling instructions were common to each code to allow accurate com- 


parison of relative speeds. 
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V. VALIDATION 


A. INITIAL CODE 
1. General Procedure 
To simplify code development, initial forms of the codes for 
both the explicit method and Brian’s Method were developed without 
including convection or radiation. Validation for both methods was 
accomplished by solving for the temperature distribution within the 
cylinder described in paragraph A.2 of Chapter III, comparing results 
with the analytic solution and calculating the percentage error. Upon 
achievement of satisfactory results, the initial codes were expanded to 
encompass the effects of both convection and radiation. Validation of 
the core of this revised code was accomplished by setting appropriate 
convective and radiative coefficients to zero and repeating the initial 
validation procedure with the revised code. 
2. Time Incrementation 
Initial runs were conducted using a fixed time step of 0.1 
second. Following initial data collection, additional runs were con- 
ducted to determine operating limits for both methods. During this 
phase, Brian’s method was tested and validated using constant time 
increments in the range from 0.01 to 100 seconds and included a log- 


arithmically increasing time step arrangement Summarized in Table 3. 
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TABLE 3 
VARIABLE TIME STEP EMPLOYMENT 


RANGE (SEC) TIME STEP (SEC) 
0.1-1.0 0.1 
1.0-10.0 1.0 
10.0-100 10.0 
100-300 100.0 


Additional runs were conducted using a varying time step in which the 


final step size was limited to 20 seconds. 


B APPLICATION CODE 

No analytic solution was available for a cylinder with convective 
and radiative boundary conditions. Consequently, the application codes 
may not be considered fully validated. A comparison of results was 
obtained by solving the application example with both methods and 
comparing the results point-for-point against each other in the form of 
a percentage disagreement. All combinations of heat flux and boundary 


conditions considered are summarized in Table 4. 
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TABLE 4 
SUMMARY OF APPLIED BOUNDARY CONDITIONS 


Boundary 
Class Inner Outer Upper Lower 
I Q R R R 
II Q R,Q R 182 
Il Q R,Q R,Q R 
IV Q R,Q R R,Q 
Vv Q R,Q R,Q R,Q 
VI Q R,Q,H R R 
VII Q R,Q R,H Ise 
VIII Q R,Q R R,H 
IX Q R,Q oer R,H 
x Q R,Q,Vl R R 
XI Q R,Q a R 
XII Q R,Q R R,V3 
XIII Q R,Q R,V2 R,V3 
XIV Q R,Q,V1 R,V2 R,V3 
XV Q R,Q Reon R,V2 
XVI Q R,Q RES R,V3 
Where: 

Q = Constant, uniform surface heat flux 

R = Radiation to extensive, black surroundings 

H = Convection from surface 


V1* = Periodic, uniform surface heat flux 1 
V2* = Periodic, uniform surface heat flux 2 


V3* = Periodic, uniform surface heat flux 3 


* As described in Appendix G. 
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VI. RESULTS 


A. DEFINITIONS 
1. Convergence 
On validation runs, calculated values were considered to have 
converged when the net remaining change in the value comprized less 
than one percent of the analytic solution for the given time step. For 
comparison runs, values were considered to have converged when 
their difference comprised less than one percent of the value of the 
smaller of the two numbers. 
2 Steady-State 
A condition of steady-state was considered to have been 
reached when the net remaining change in a temperature comprized 
less than one percent of the final steady-state result for single tran- 


sient evaluation. 


B VALIDATION 
1. Analytic Solution 
The analytic solution converged to steady-state at 300 sec- 
onds. Consequently, all validation runs were limited to 300 seconds 
duration to economize on analysis time. 
2. Explicit Method 
The theoretical limit on the maximum time step allowed for 
the geometry selected was approximately 0.395 seconds, which did 


not lend itself to convenient comparisons with the analytic results. 
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The explicit method was validated using a numerically convenient 
time step of 0.1000 second and converged with the analytic result 
within four seconds of the start of the transient cycle (Figure 10). 
Total execution time was 40.37 seconds for a ten (radial) by four (6) by 
five (z) grid. The observed error at the end of the 300-second evalua- 
tion period was on the order of 0.009 percent. For processing speed 
comparison runs, the maximum theoretical timestep was employed 
and demonstrated a minimum execution time of 10.53 CPU seconds. 
Due to the odd step size, no comparison of relative accuracy was made. 
3. Brian’s Method 

Brian’s method was initially limited to a fixed timestep of 0.1 
second for the validation process to allow a relative speed comparison 
with the explicit method. While convergence times and observed 
errors were comparable (Figures 10, 11, and 12), the explicit method 
demonstrated a significant speed advantage over Brian’s Method for 
equivalent timesteps (Table 5). This situation was dramatically 
reversed when the logarithmically increasing timestep arrangement 
(Table 3) was employed and resulted in an execution speed of 2.53 
CPU seconds, which comprised a 410 percent advantage over the 


optimum result of the explicit method (Table 6). 


CG FOLLOW-ON TESTING 

Upon conclusion of the validation runs and speed comparisons, a 
variety of boundary conditions with easily predictable effects were 
applied to allow observation of system response (Table 4). The follow- 


ing general observations were made. 
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% ERROR 


TIME (SEC) 


Figure 10. Percentage Error of Explicit Code as Compared 
to Analytic Results and Plotted Versus Time 
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% ERROR 


TIME (SEC) 


Figure 11. Percentage Error of Brian’s Code as Compared 
to Analytic Results and Plotted Versus Time 
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Figure 12. Comparison of Brian vs. Explicit Validation Results 
Expressed as a Percentage Difference 


TABLE 5 
VALIDATION RESULTS—FIXED 0.1 SEC. TIMESTEP 


10x 4x 5 GRID 
300 SEC TRANSIENT 


RESULT EXPLICIT BRIAN’S 
STEP SIZE 0.1 SEC OFESEC 
CPU TIME 40.37 SEC 223, 274,56 
ERROR AFTER 

0.1% 15.188% 20.308% 

1% 247% 1.668% 

2% 0.612% 0.814% 

10% 0.110% 0.183% 

100% 0.009% 0.009% 

CONVERGENCE 3-4 SEC 4-5 SEC 
(<1 % ERROR) 


SPEED ADVANTAGE: EXPLICIT (553 %) 
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TABLE 6 
VALIDATION RESULTS—LOG-VARIABLE TIMESTEP 


BRIAN’S METHOD 
VARIABLE STEP SIZE 


TIME (SEC) STEP SIZE (SEC) 
O.1-1.0 0.1 
1.0-10 1.0 
10-100 10 
100-300 20 
% TRANSIENT % ERROR % IMPROVEMENT* 
0.1 20.308 0.00 
1.0 1.446 13.3 
10. -0.057 68.8 
100. 0.01 se 2 


CPU TIME: 2.53 SEC 


SPEED ADVANTAGE : BRIAN’S (416 %) 
* Explicit method with optimum time step. 


1. Symmetric Boundary Conditions 
For both radially and axi-symmetric boundary conditions, the 
results of both methods rapidly converged with each other within the 
first three percent of the transient cycle. 
2. Asymmetric Boundary Conditions 
When asymmetric boundary conditions were applied, large 
differences were observed at surfaces nearest the surface of applica- 


tion. These differences were eliminated by apllication of a finer grid 
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size in the direction of principal flux and are thus attributed to discre- 


tization errors due to the generally coarse nature of the applied grid. 


D. APPLICATION EXAMPLE 

A satellite thermal analysis problem (Appendix G) was selected as 
offering a practical example of a system subjected to long-period 
steady-state transient behavior. Figure 13 presents a graphical 
comparison of the results of both methods for the initial 3000 seconds 
of the first transient cycle. Figure 14 exhibits the thermal response of 
selected nodes as calculated by Brian’s Method for the initial 10 tran- 


sient cycles of the application example. 
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VII. CONCLUSIONS AND RECOMMENDATIONS 


A. CONCLUSIONS 
1. Adaptability 
Brian’s Method is readily adaptable to cylindrical geometries. 
However, compensation must be made for the lack of tridiagonality of 
the coefficient matrix when calculating intermediate temperatures in 
the phi-direction. 
2. Relative Accuracy 
For symmetric boundary conditions, Brian’s Method delivers 
accuracy comparable to the explicit method. Convergence is negligibly 
Slower than that observed for the explicit method. 
3. Relative Execution Speed 
Brian’s Method offers distinct advantages over the explicit 
method for systems demonstrating periodic steady-state temperature 
response, and for those systems with extended single transient cycles 
whose geometry makes the explicit timestep limitation overly restric- 
tive. For some geometries, Brian’s method is slower than the explicit 
method and is not recommended. 
4. Relative Benefits 
The principal benefit of Brian’s Method is its unconditional 
Stability and associated freedom from timestep restrictions. This 
allows the user to apply a coarse grid and timestep to allow rapid 


coarse analysis with the ability to adjust the step size downward as the 


ae 


situation warrants. However, the relative advantages of the unre- 
stricted timestep must be carefully considered against the substantial 


increase in algebra and code requirements. 


B RECOMMENDATIONS 
1. Adaptation of Brian’s Method FORTRAN Code to C Pro- 
gramming Language 
a Background 


The large storage and calculation requirements associ- 
ated with finite difference approximations of transient heat conduc- 
tion problems have historically relegated their analysis to the realm of 
the mainframe computer. However, recent developments in micro- 
processor technology have dramatically improved the storage capabil- 
ity and execution speeds of personal computers (PCs). Consequently, 
increasing amounts of engineering analysis and design are being con- 
ducted on these devices at significant cost reductions. In research 
being conducted under the auspices of the Electrical and Computer 
Science Department at the Naval Postgraduate School, FORTRAN 
codes involving large numbers of repetetive calculations or iterations 
have been demonstrated to experience significant improvements in 
execution speed when converted to the C programming language prior 
to execution on a personal computer [Ref. 11]. 

b. Recommendation 

It is strongly recommended that research be conducted 

to investigate the feasibility of and limitations on the conduct of tran- 


sient heat conduction analysis on personal computers employing a C 


Og 


programming language adaptation of the Brian’s Method FORTRAN 
code. 


2. Incorporation of the Analysis of Directional and Time-Depen- 
dent Properties in Brian’s Method 


a. Background 
Composites demonstrate strong directional and 
temperature dependent thermal properties and are being rapidly 
assimilated into many engineering applications. 
b. Recommendation 
It is recommended that additional research be con- 
ducted to develop procedures for the incorporation of directional and 


time-dependent thermal properties into Brian’s Method. 


o4 


APPENDIX A 
NODE EQUATIONS FOR EXPLICIT METHOD 


A TYPE 1 NODES—END LAYERS, INNER SURFACE 
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D. TYPE 4 NODES—MID-LAYERS, INNER SURFACE 
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E. TYPE 5 NODES—MID-LAYERS, MID-RADII 
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F. TYPE 6 NODES—MID-LAYERS, OUTER SURFACE 
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APPENDIX B 
NODE EQUATIONS FOR BRIAN’S METHOD 


A TYPE 1 NODES—END LAYERS, INNER SURFACE 
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1. Step 1 (z-Direction) 
AT, +BT +CT, =D 
where 


ne O, Bottom layer al 


— Fo, Top layer nodes 
B=1+Fol|l+c,(h, +h, )+e(h, +h, )| 
e e | 1 


ee Fo, Top layer nodes 
7 0, Bottom layer nodes 
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AT, +BT +CT, =D 


where 


A=-cFo 


] 


62 


B=1+Fo | 2c, +e(h, th, teh, TED) 
Cla CLO 
Dai Ra OF, =P) eae a 
POAC oi lr, Wig Hae) 


GAG Aad one idn Lie )| 
3. Step 3 (r-Direction) 
A BCT =D 
where 


A=0 
B=1+Fo eae th, pte ch, +h, )| 
Ge or ae, 
heehee (f+ 2) 


pen amioi ie h, To ) 


63 


: oe wee Ae a, ee 
acs, 7 or wr) 
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k(r- Sr yA2? 


_ 2k,rAr’ 
k (r+ at 
aT a ee 
DRT INE 


Pe 
N 





C,=14+2Folai, +h, i 
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aE onGmern (Ty) +72, | 
1. Step 1 (z-Direction) 


AT. +BY +CT, 


where 


Pe 0, Bottom layer nodes 
- |- Fo, Top layer nodes 


B=1+ Fofi+c(h, +h, )] 


cul Fo, Top layer nodes 
= 0, Bottom layer nodes 


Dees tal aren —T ) 
+c,(T,-T) 
taCn (emia alieetaiee D = )| 
2. Step 2 (o-Direction) 
AT, +BT +CT, =D 
where 


A=-—c Fo 
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B=1+ Fo 26, eC) 


C ==—%0Fo 


even. = beer = \he re ar) 
+c(q),+h, T.+h, ies) 
3. Step 3 (r-Direction) 


AT, +BT°+CT, =D 


where 


Ai ae 0 
B=) Poe een. aie )| 
C= Sieg 


D=T Fo: = eG ee 


ENC ralte, Poc8 iby P| 
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4. Step 4 (New Temperatures) 


n+] 


a 


Zr {7 +2Fol(T.-T") +e, + Ty - 27") 


a oe -T)+c,T, -T) 


+c(q’ th, T.+h, ite) | 


CG TYPE 3 NODES—END LAYERS, OUTER SURFACE 





k Az? 
(= -ef{ao 
2k(r- S7) rag’ 
kr -S7)A2? 
es Co 
kr- 2a P 
_ Az 
C= 
rA z? 
C= 


k(r- yar 
ee + 2Fo| c(h. +h, ) toh, +h, | 


5 Seo i Gm e i 4 


r 
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h, = £50 (1 +T wy) Mr) + Tew | 
1. Step 1 (z-Direction) 
AT.+BT +CT, =D 
where 


ja 0, Bottom layer wand 


— Fo, Top layer nodes 


B=1+Foll+c,(h, +h, )+c,(h, +h, )| 
e e O O 


Ce {" Fo, Top layer nodes 


0, Bottom layer nodes 


D=T “Folch ) ene 
GAC anita Tar he) 
+e7 o-h, Teh, Tw) 
2. Step 2 (o-Direction) 
AT, +BT”+CT., =D 
where 


A=- c, Fo 
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B=1+Fo|2c,+c,(h, +h, yte(h, +h, | 


Ce CO 


D=T"+Fo|(T;-T")+c,(T;-T’) 
trGG et h, T.. + a, le) 
+c,(q¢’ +h oath, Hy, )| 
3. Step 3 (r-Direction) 
AT, +BT °+CT, =D 
where 


A=-c.,Fo 


2 


B=1+Fo Je. tes(h, +h, )teh, +h, | 


Daw #25 |(Co ai) ae Ur ree 


ap Ooh ese than ale: 
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‘oth, Toth, T 
today oh, Toh, 7 am 
4. Step 4 (New Temperatures) 
a+) 1 A 9) | a * io T° T ee 
T= 7,{T +2Fo|7.-T)+c,T, +Ty-2T ) 


ss 


+c(T, -T ) 
1 CAG, the etd te) 


+c,(q’,+ antes ly fe )|} 


D. TYPE 4 NODES—MID-LAYERS, INNER SURFACE 


Z 
k Az 


iti 
kre S2ag" 


2k (r+ S7)A2? 
C, = 
kart Sar 


DL IN pes 


Cc, = ——— 
k,Crt+ STA r 


cg=1+Folch, +h, J] 
h, =€,0 (T+ Tue LCT") + Taw | 
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1. Step 1 (z-Direction) 


AT. +BT +CT, =D 


where 


Ree 2 Heih, +8,:)] 


A F A A A A A 
D=T* +" [c,(77+T)-27")+e(T)-T") 
+c,(q’, tel Hab, Ion )| 
2. Step 2 (o-direction) 


AT, +BT +CT, =D 


where 





me rer sca 
B=1+ (2c, +¢,(h. +h, )| 
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p=T" +72 [7,47 -27")+0(T3-T') 
PERG Ei, intel, Tos )| 
3. Step 3 (r-Direction) 
AT, +BT +CT, =D 
where 
A=0 


Fo. 
B=1+ 5 fe, te,(he +h, )| 





Fo * * * es es es 
D=T+-H (+7) -279") +e, 07 +TY - 277) 
+0,(q’, +h lls by Te )| 
4. Step 4 (New Temperatures) 


n+l 


] n * s « oe ee os 
Tr’ =3-{T"+Fol(T, +7) - 27") +07 +7 y - 27") 


(2 


a a0 a _ po) 


+c,(q’, +h ea hls )|} 


E. TYPE 4 NODES—MID-LAYERS, MID-RADI 


k, Az? 
Cy 


. k r2Ap- 


k (r+ Paz? 


C,= 


k,rAr? 


re ae? 


= 


re 


1. Step 1 (z-Direction) 


AT. +BY +Ch, =D 


where 


mo) 
eae 
B=1+ Fo 
- de: 
os 2 
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F A A A A A A A 
p=T + [eT +7)- 27") +07} -T) +07, -7')| 


2. Step 2 (o-Direction) 


AT, +BT +CT, =D 


where 








_ Fo 
a) 
B=1+4 c Fo 
é c, Fo 
7 @ 


Fo Py ry * a A A A 
D=T+-> [Ti +Tj- 27 )+e,T}-T’)+e(T)-T')] 


3. Step 3 (r-Direction) 


AT, wet Che 


where 





F 
Beales 
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aR Fo * * * oe oe es 
D=T*+ [3 +T{- 27" )+e,(77 +7; -27")] 


4. Step 4 (New Temperatures) 


meee =n one -T. —2 \+o(T=T") 


o ee £ Pe) | 


F. TYPE 4 NODES—MID-LAYERS, OUTER SURFACE 


k, Az 


= ee eee 
ky r(r= Sy ag? 


ae ee 


C,= 


kr — 22 yar? 


DAGTIN Ae 


C = 
k.(r- a Ar 


c,=1+Folc,h, +h, )| 


h, =€,0 (T° +T we) Mer) + Tne | 


a) 


1. Step 1 (z-Direction) 
AT,.+BT +CT, =D 


where 


Fo. 


B=1+>[2+¢,(h. +h, )| 


: if 
Cag oth, Toth, | =2))| 
2. Step 2 (o-direction) 


AT, +BT+CT, =D 








where 
n C, Fo 
Sie: 
pane 2 eee 
De | 3 O O 
ei ce, 
mee: 
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A F. s * * nA A 
D=T a. +T.-2T')+c,(T,; -T’) 


+co(q’ oth, T.th, =| 
O O 
3. Step 3 (r-Direction) 


AT, +BT +CT, =D 





where 
i ha 
Bal+ Sc, telh. +h, ) 
oo 


n Fo * * * A A A 
D=T"+> |}, +T}- 27) +e, Tp +7), - 27") 
+e,q',th, Toth, T 
CA a ae | 


4. Step 4 (New Temperatures) 


n+] 


] A PS * Ps ae as ae 
PY =z {r"+Fol +7 {- 27) +e, TP +7 - 27") 


ie Gs c- = i a 


a CE ote -J- f lili ) |} 


ai 


APPENDIX C 
VALIDATION MODEL 


A. PROBLEM SPECIFICATION 

Given a right circular cylinder with adiabatic ends and specified 
initial temperature distribution and constant inner-surface tempera- 
ture of zero degrees Celsius. At time t = O, a uniform constant heat flux 
is applied to the outer surface of the cylinder. Assume constant prop- 


erties and no losses due to convection or radiation. 


B ANALYTIC SOLUTION 





Fourier Equation 
2 On 
VT=a a 
Boundary Conditions: 
l, =a T = 0 
oT _ 4 
(pS ib. ok 
Initial Condition: 
r=0 T=0 


Let: T= ¥(r, 1) + D(7,) 
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Auxiliary Problem 


Vr t)4 VO rat BIE ty, 
eee) Sf et ae 

















2 1 ov 
r=a Gee, te V @(F) = S- 
d dp _ 
r= b yt (Tost) + rT 
P=0) Y (r,,0)+@ (r,)=0 
Separating the Auxiliary Problem 
Equation 1: 
d@® 1 d® 
aca eta 7 
m=a DM (a) =0 
d® q” 
0 _ 
dr, k 
_ dD 
Let y= or, 
Then: 
dy ees 
ie AG 


TES, 





In yy SiG aa, 














q 
be aT 
And: 
db _ 4 
dr, Vo 
dr , 
a® =c,F 
Yielding: 
@D =o Ga) ac Ge, 
Evaluating Constants 
r=2a — @ =O = O=c,In(a)t+c, 
bg’ 
c,=-— In(a) 
LA b q” 
db 4 = 
r=! Gah as er Nee: 
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Transforming the Variable 


on 





Let: r= = 
: _ a 
And: eS os 
bd’ os 
@ = In(— 
Then: ) k Go? 


Converting Boundary Conditions 


The Transformed Problem Becomes 


b td 
o (r= In Ge) 








Te g=0 
ag dgcr) — bq” 
7 dr  ~—oik 
Equation 2: 





r= a id )= 0 


tel 


1=0 Y ie,,0) => Orig 


Leto? (7 ..t = Gaia) 


Then: RT +¢RT =a RT 


Which reduces to 





Separating the two equalities, we obtain. 





Equation 2.a 
bey Gai 
ep ae 
2 
Ind’ )=-aBp’t 
i esgue = 
Equation 2.b 
ae Ck r= 
_ dR _ 
| Fr 


From Table 3-2, Case B of Ozisik 
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PGE = bee (Baby J (Bb) Y,(B." 7.) 


the inverse of the norm is given by 


a” 2 
ae: B °s7%(B a) 
ids en (G ita) 2 (3b) 


and the eigenvalues are the roots of 
J,(B‘a)-Y¥,(B °b)-J,(B*b)-Y,(B *a)=0 
From the recursion relations we know 
ea l(c.) 
and similarly 
Y (xy=— Y.(x) 
Substituting, multiplying by -1, and rearranging terms yields 


Y, (B °b)-J,(B °a)-J,(B °b)-Y(B °a) =0 


Transforming Variables: 


Letting: SIs te 
and recalling that: x= = 


we obtain by substitution the common tabular form: 


Y(8)-J,« B)-J,(B)-Y,« B )=0 
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Performing similar variable transformations on the transient 


solution yields: 
R(B,r)=J,(B)-Y(rB)-J(rB )-¥(B ) 


with the norm 


Ji« B)-J(B) 
Nese 


Ws 2 
pe le PD 


Total Solution: 





2 
ie 
= — R (7,8) 


b mas: 
Trtyae ln ED lee =) FG 


1 be 
J tp RB) mn (Ei dp } 
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APPENDIX D 
EXPLICIT METHOD STABILITY REQUIREMENTS 


The following equations represent the limiting time step size for 


their respective node types. 


A. TYPE 1 NODES—END LAYER, INNER SURFACE 


ip Az? ki (r+ 2) Az? 
Ae LE 


SS Ee Cp a 
kr(r+ Sag? kr + S25) ar? 


B TYPE 2 NODES—END LAYERS, MID-RADII 


Nae kr Sy Az? 
Ar, <1+—-————, + ——+—_,— 
k, r-Ad 2k,rAr 


CG TYPE 3 NODES—END LAYERS, OUTER SURFACE 


eee Gee ad 
¢ eZ 
Farge) Oat ge 


D. TYPE 4 NODES—MID-LAYERS, INNER SURFACE 


A 
2k, Az? 2k, (r+ =) 
it, $23 ee 
2G ee a 
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E. TYPE 5 NODES—MID-LAYERS, MID-RADII 


iste Awe 
2k, Az? k,(r- >? k,(r + >? 


At, < 2 +-———, + ———_——— + ——_—— 
k,r? Ag opal au hs kj rar 


F. TYPE 6 NODES—MID-LAYERS, OUTER-SURFACE 


2k, Az? 2k (ry Az? 
ates | Besa ee 
Rit Ci pe) OE lr 
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OOOO Aaa 


APPENDIX E 
EXPLICIT METHOD CODE 


ECR FORTRAN A - (REV. 11/23/88) 
SATELLITE MODEL - VALIDATED 11/26/88 


KKKKKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KK KK KKK KKK KK KKK KK KKK 


Peck — PROGRAM TO COMPUTE NODE TEMPERATURES FOR A RIGHT * 


* CIRCULAR CYLINDER SUBJECTED TO CONVECTIVE AND/OR * 
* RADIATIVE BOUNDARY CONDITIONS USING THE EXPLICIT * 
m METHOD VOR FINITE DIFFERENCE ANALISIS. x 


KKKKKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKKKKKKKKKKKKKKKKKEK KKK KKK 


PAE CICiIT DOUBLE PRECISION (A-H,0-2) 
Perens lON TOLD (15, 15,15), TNEW(15, 15,15) 
PIMeENSION DMAT(15,15,15) 


COMMON /ARRSIZ/ III,JJJ, KKK 

COMMON /CONDUC/ DKR, DKP,DKZ 

COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON /MATSIZ/ NODES,NPHI,NLAYER 

COMMON /PARAMS/ CSUBP, RHO 

COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
SeMMOn /TEMPS/)-T1,T2,T3,T4,1T5S,T6,T?,1T8,1T9,T10, TINE, TSUR 
COMMON /TIMES/ DELTIM, DTMAX,FINTIM, LIMIT 

START TIMER 

CALL STIME 

OPEN (UNIT=11,FILE='ECRLNG') 

OPEN (UNIT=14, FILE='ECRDAT') 

OPEN (UNIT=15,FILE='"ECRCPU') 


CXR KKKKKKKKKKKKKEKKKKKK KK USER DEFINED VARIABLES KKK KKKEK KKK IKK KK KKK 


DELTIM Or 3OD+00 

FINTIM = 3000.0D+00 
IPRINT = 100 

ACTUAL MATRIX DIMENSIONS 


tl 


NODES = 10 

NPHI = 4 

NLAYER = 5 

NOPE SPECIFICATION FOR FILE ESHORT 
MRAD = 10 

MPHI = 2 

MLAYER = 3 

DECLARED ARRAY DIMENSIONS 
TIT = <5 

JJJ = 15 

KKK = 15 


PBSORPIIViTY COEFFICIENTS 
ALFAN = 0.4D+00 
ALFAS = 0.4D+00 
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ALFAO = 0.4D+00 

ALBEDO COEFFICIENT 
ALBEDO = 0.30D+00 
THERMAL CONDUCTIVITIES 
DKR = 177.D+00 

DKP 177 .D+00 

DKZ = 177.D+00 
EMISSIVITIES 

EPSUBN = 0.9D+00 
EPSUBS 0 .9D+00 
EPSUBI 0.D+00 

EPSUBO = 0.9D+00 
CONVECTION COEFFICIENTS 
HSUBN = 0.D+00 

HSUBS = 0.D+00 

HSUBI = 0.D+00 

HSUBO = 0.D+00 

HEAT FLUXES 

SOLAR = 1353.D+00 


EIR = 238.0D+00 
GEN = 1000. 

QPSUBI = 0.D+00 
OPSUBO = 0.51700 
QPSUBN = 0.D+00 
QPSUBS = 0.D+00 
GEOMETRY 


RMIN = 0.15244D+00 

RMAX = 0.22866D+00 

ZMAX = 1.D+00 

VIEW FACTORS WITH THE EARTH 
VERTHN = 0.D+00 

VERTHS = 1.D+00 

VERTHI 0.D+00 

VERTHO = 0.D+00 

VIEW FACTORS WITH SPACE 
VSPCN = 1.D+00 

VSPCS 0.D+00 

VSPCI = 0.D+00 

VSPCO = 1.D+00 
TEMPERATURES 

TABS = 273.D+00 

TINIT = 293.D+00 

TINF 0.D+00 

TSUR = 4.D+00 

MATERIAL PROPERTIES 
CSUBP = 875.0D+00 

RHO = 2270.0D+t+00 
INITIALIZE OTHER VARIABLES 
ICOUNT = 0 


ITIME = 0 

ORBT DiMs—.07 D010 

PI = 4.0D+00*DTAN (1.D+00) 
RAD = RMIN 

SIGMA = 5.67D-08 

pens ols = 0. D+t00 
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SAG le, 
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© 


Jigal = Q.D+00 

INITIALIZE MATRICES 

CALI BMINIT (TOLD, TINIT) 

CALL BMINIT (TNEW, TINIT) 
SURFACE AREA CALCULATIONS 
SAREAN = PI*(RMAX**2 - RMIN**2) 
SAREAS = PI* (RMAX**2 - RMIN**2) 
SAREAI PI* (2*RMIN) *ZMAX 
SAREAO PI* (2*RMAX) *ZMAX 
INITIAL CALCULATIONS 

ALFA = DKZ/ (RHO*CSUBP) 

DPHI = 2.*PI/NPHI 

DR = (RMAX-RMIN) / (NODES-1) 

DZ = ZMAX/ (NLAYER-1) 

LPHI = 360/NPHI 

QPSUBI = GEN/SAREAI 

ORBITAL PARAMETERS 

PERIOD = 5440.D+00 

ECLIPS = 2181.9D+00 


OMEGA = 1.155D-03 

TAU = 0.01*PERIOD/4 

TIME1 = 0.D+00 

TIME2 = PERIOD/4.D+00 

TIME3 = 107.8D+00/360 * PERIOD 

TIME4 = (270 - 17.8)/360 * PERIOD - 4*TAU 


Pies — (270 = 17.8)/360 * PERIOD 

ZIME6 = 270/360 * PERIOD 

BolABLISH STABILITY REQUIREMENT 

CALL STABIL (DTMAX) 

FO = ALFA*DELTIM/ (DZ**2) 

LIMIT = FINTIM/DELTIM + 500 

WRITE MATRIX DIMENSIONS TO FILE 14 (ECRDAT) 
WRITE (14,*) NODES,NPHI,NLAYER 


meer RINT OPTION 3 — SAVES DESIGNATED NODE TEMPS AT SPECIFIED 
PRING VNTERVAL er Uob FOR LONG PERIOD EVALS. 

Webbe (rl, *) “ECRSAT" 

WREEE (11, *) 

WRITE (11,888) 

Peron Co TIME, 116, "DELTIM',1T30, 'LAYERI',1T45, \LAYER3',T00O, 'LAYE 

TR) 

Weite: til, *) 


CMMMMMMMMMMMMMMMMMMM BEGIN TEMPERATURE COMPUTATIONS MMMMMMMMMMMMMMMMMMMM 


C 


GET TIME ENTERING LOOP (MAINFRAME VERSIONS OF CODE ONLY) 
Wrelte sli ~) ENTERING LOOP TIME' 
CALL GPIME(1,11) 
DO 100 I=1,LIMIT 

ITCOUNT=ICOUNT+1 

TIME=TIME+DELTIM 

@RBTty = ORBTIM + DELTIM 

tenon od. GE. PERIOD) ORBTIM = OCRBTIM = PERIOD 
SURFACE FLUX CALCULATIONS (TIME DEPENDENT) 

if ((ORBTIM:.GE 79). AND-(ORBTIM.LE.TIMBE2)) THEN 

QPSUBN = ALFAN*SOLAR*DCOS (OMEGA* ORBTIM) 
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QPSUBS = ALFAS* (EIR + ALBEDO*SOLAR*DCOS (OMEGA*ORBTIM) ) 
QPSUBO = 0.5*ALFAO*SOLAR*DSIN (OMEGA*ORBTIM) 
ELSEIF ((ORBTIM.GT.TIME2) . AND. (ORBTIM, LE STIMEs) > tien 
OPSUBN = 0; 
QPSUBS = ALFAS* (EIR + (ALBEDO+DCOS (OMEGA*ORBTIM) ) *SOLAR) 
QPSUBO = 0.5*ALFAO*SOLAR*DSIN (OMEGA*ORBTIM) 
ELSEIF ((ORBTIM.GT.TIMES) .AND. (ORBTIM. LE. T1IMB4)) THEN 
QPSUBN = 0. 
QPSUBS = ALFAS*EIR 


QPSUBO = 0.D+00 
ELSEIF ((ORBTIM.GT.TIME4) .AND. (ORBTIM=@ES IiMeo ete 


QPSUBN = 0.D+00 
QPSUBS = ALFAS* (EIR 
1 + DABS (ALBEDO* SOLAR*DSIN (OMEGA*ORBTIM) ) 
1 * (1-DEXP (- (ORBTIM-TIME4) /TAU) ) ) 
QPSUBO = 0.5*ALFAO*DABS (ALBEDO* SOLAR 
i} + DSIN (OMEGA*ORBTIM) 
i! * (1-DEXP (- (ORBTIM-TIME4) ) /TAU) ) 


ELSEIF ((ORBTIM.GT.TIMES) .AND. (ORBTIM- L777 0MEG))) THEN 
QPSUBN = 0.D+00 
QPSUBS ALFAS*® (EIR 
ik + DABS (ALBEDO*SOLAR*DSIN (OMEGA*ORBTIM) ) ) 
QPSUBO = 0.5*ALFAO*DABS (SOLAR*DSIN (OMEGA*ORBTIM) ) 
EBLSEIF (ORBTIM.GT:-TIME6) )7HEN 
OPSUBN ALFAN*DABS (SOLAR*DCOS (OMEGA*ORBTIM) ) 
OPSUBS RUF AS. (hl 
a + DABS (ALBEDO*SOLAR*DSIN (OMEGA*ORBTIM) ) ) 
QPSUBO 0.5*ALFAO*DABS (SOLAR*DSIN (OMEGA*ORBTIM) ) 
ENDIF 
CALL MAIN SUBROUTINE 
CALL NUTEMP (TOLD, TNEW, DELTIM) 
MAP NEW TEMPERATURE MATRIX ONTO OLD TEMPERATURE MATRIX 
CALL MAP122 (TNEW, TOLD) 
SAVE TIME, DELTIM AND TEMPERATURE MATRIX TO DATA FILE 14 (ECRDAT) 
IE (LCOUNT.EO; ITPRINT) S THEN 
ICOUNT = 0 
WRITE (147 *)) LIME PPE DI IM 


xx*x* CONVERT NEW TEMPERATURES TO EXCESS FOR PRINICUI =. 
DO 200 LAYER=1,NLAYER 
DO 300 INCRAD=1, NODES 
DO 400 IPHI=1,NPHI 
TNEW (INCRAD, IPHI, LAYER) = TNEW(INCRAD, IPHI, LAYER 1) = Dai 


**x** PRINT OPTION 1 - USE WITH CMPSHT, COMPAR, LNGFRM, SHIERM, Sea 
SHORT EVALUATION TIMES ONLY (<400 SEC) 
WRITE (14,*) TNEW(INCRAD, IPHI, LAYER) 
CONTINUE 
CONTINUE 
CONTINUE 


xxx PRINT OPTION Z = SAVES COMPLETE MATRIX Alec eee ep lep ernie 
INTERVAL = SWITCH OFF ALL SUBROUTINES Listes 
UNDER PRINT @OPTIONs! PERS: 
CALL PRIMAT (TIME, DTIME, INEW, NODES, NED, NLAYER) 
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I @ iG?) 


Ce aC SP at ) CG? jaa a leat aN 1 Jats 81 
oe) 
\O 


@) 


100 


101 


6 eG al > 1a 


\O 
‘Oo 
\O 


> EG Nd GD hat GD asl @ 1s > 1 Jans fal 


300 
200 
100 
998 


m~x* PRINT OPTION 3 = SAVES DESIGNATED NODE TEMPS AT SPECIFIED 

PRINT INTERVAL. USE FOR LONG PERIOD EVALS. 
Vette wd, 660) “TIME, DELTIM, TNEW(5, 1,1), TNEW(5,1,3),TNEW(5,1,5) 
Panini )O.s, Dios oeo,neo,F12.6,1T40,F12.6,155,F12.6) 


kkk KAKA RE-SPECIFY PRINT INTERVALS ******** 
IF (TIME.GE.99.9) THEN 
IPRINT = 200 
ELSEIF (TIME.GE.9.9) THEN 
IPRINT = 100 
ELSEIF (TIME.GE.0.99) THEN 
IPRINT = 10 
ENDIF 
ENDIF 
TIME INTERVAL DELIMITER 
IF (TIME.GE.FINTIM) GOTO 101 
CONTINUE 
STOP CLOCK TIMER (MAINFRAME VERSIONS OF CODE ONLY) 
CONTINUE 
GET TIME EXITING LOOP 
Sami GTIME (1,11) 
CLOSE (14) 
CLOSE (15) 
WRITE APPROPRIATE DATA FILES 
CALL ERROR (MRAD,MPHI,MLAYER) 
CALL SHTFRM (MRAD,MPHI,MLAYER) 
CALL LNGFRM 
CALL GTIME (1,11) 
STOP 
END 


I DODD OD DOO OO OOO OS OOO OO OOS oS SSS SS SSS SESS SSS SSSSSSSSSSSSSSSSSSSSSSS855 


BMINIT FORTRAN A - (REV. 9/28/88) 
KKKKKKKKKKKKKEKKKKE KKK KKK KKK KKK KKKKKKKEKKKEKKKKKEKKKKKKKKKKEKK KEKE 
* BMINIT - SUBROUTINE TO INITIALIZE TEMPERATURE MATRIX TO A * 
. SPECIFIED VALUE (BRIAN'S METHOD ARRAY FORMAT) * 
KREKKKKEKKKKKEKEKKK KKK KE KKK KKK KEK KK KKK KK KKK KKKKKKKKKEKKKKKKK KK KKK 
PROGRAM LINE 213 
SUBROUTINE BMINIT (DMAT, TINIT) 
IMPLICIT DOUBLE PRECISION (A-H,0-2Z) 
COMMON /ARRSIZ/ III,JJJ,KKK 
DIMENSION DMAT (III, JJJ, KKK) 
DO 100 LAYER=1, KKK 
DO 200 IPHI=1,JJJ 
DO 300 INCRAD=1, III 
DMAT (INCRAD, IPHI, LAYER) = TINIT 
CONTINUE 
CONTINUE 
CONTINUE 
RETURN 
END 


git 


CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS5SSSS50 006 ee se oD 555555500 


COO O80): 2 (OrOr® 
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STABIL FORTRAN A (REV. 11/14/88) 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKEKKKKKKKKKKEK 


* STABIL = SUBROUTINE TO COMPUTE THEORETICAL MAXIMUM. Tims i 
* INCREMENT ALLOWED TO MAINTAIN STABILITY IN EXPLICIT * 
* FINITE DIFFERENCE ANALYSIS OF A CYLINDER IN 3-D A 
* POLAR CYLINDRICAL COORDINATES. ba 


KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKKKEKKKKKKKEKKEKKKKKKKKEK 


PROGRAM LINE 237 
SUBROUTINE STABIL (DTMAX) 
IMPLICIT DOUBLE PRECISION (A-H, 0-2) 
DIMENSION DT(6) 
COMMON /CONDUC/ DKR,DKP,DKZ 
COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 
COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
xkK*kx BODY Kxx 
DO 50 I=1,6 
DT(I) = 0.D+00 
CONTINUE 
DUMMY = (DZ**2) /ALFA 
END LAYERS, INNER SURFACE NODES 
DCREI = 1 + (2*DKP*DZ**2) /(2*DKZ*RAD* (RAD+DR/4) *DPHI**2) 
1+ (DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/ 4) *DR**2) 
DT(1) = DUMMY/ (2*DCREI) 
DTMAX = DT(1) 
END LAYERS, MID-RADII NODES 
DCREM = 1 + 2* (DKP*DZ**2) / (2*DKZ*RAD**2*DPHI**2) 
1+ (DKR* (RAD-DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 
2+ (DKR* (RAD+DR/2) *DZ**2) / (2*DKZ*RAD*DR* * 2) 
DT (2) = DUMMY/ (2*DCREM) 
END LAYERS, OUTER SURFACE NODES 
DCREO = 1 + 2*(DKP*DZ**2) /(2*DKZ* (RAD-DR/ 4) *RAD*DPHI**2) 
1+ (DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 
DT(3) = DUMMY/ (2*DCREO) 
MID-LAYERS, INNER SURFACE NODES 
DCRMI = 2 + 2* (DKP*DZ**2) / (DKZ*RAD* (RAD+DR/4) *DPHI**2) 
1+ (2*DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/ 4) *DR**2) 
DT(4) = DUMMY/DCRMI 
MID-LAYERS, MID-RADII NODES 
DCRMM = 2 + 2* (DKP*DZ**2) / (DKZ*RAD**2*DPHI**2) 
1+ (DKR* (RAD-DR/2) *DZ**2) / (DKZ*RAD*DR**2) 
2+ (DKR* (RAD+DR/2) *DZ**2) / (DKZ*RAD*DR**2) 
DT(5) = DUMMY/DCRMM 
MID-LAYERS, OUTER SURFACE NODES 
DCRMO = 2 + 2% (DKP*DZ**2) / (DKZ*RAD* (RAD-DR/4) *DPHI**2) 
1+ (2*DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR* *2) 


DT(6) = DUMMY/DCRMO 
DO 10051-te 

IF ((DT(I) .GT.0) .AND. (DIMAX GI. DI (1) eit 2 — a Ge) 
WRITE (*,*) ‘FROM, STABIEZ ©, D1 (boa eo le) 
CONTINUE 


IF (DTMAX.LE.0) WRITE “(*, *) @STASIL — oie ae eRe 


gz 


998 RETURN 


* 


END 
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NUTEMP FORTRAN A - (REV. 11/14/88) 


KKKKKKKK KKK KKK KKK KKK KKK KKK KKK KEKKKKKKKKEK KKK KKKKKKKKKKKKEK 


[slnltoescUBROUTINE COMPUTES THE MATRIX OF NODE * 
TEMPERATURES AT THE N+l TIMESTEP FOR THE af 
EXPLICIT METHOD OF FINITE DIFFERENCE ‘es 
ANALYSIS FOR A RIGHT CIRCULAR CYLINDER WITH * 
CONSTANT SURFACE HEAT FLUX AND A SPECIFIED * 
INNER SURFACE TEMPERATURE. * 

* 


KKEKKKKK KK KKK KK KK KE KKKKKKKKEKKKKKKKKKKKKEKKKKKK KKK KKKKKKEK 


PROGRAM LINE 298 


SUBROUTINE NUTEMP (TOLD, TNEW, DELTIM) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON /ARRSIZ/ III,JJJ,KKK 

COMMON /CONDUC/ DKR, DKP,DKZ 

COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON /MATSIZ/ NODES,NPHI,NLAYER 

COMMON /NPOSIT/ INCRAD, IPHI, LAYER 

COMMON /PARAMS/ CSUBP, RHO 

COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

SOuMMON /TEMPS/ T1,72,7TS,1T4,75,1T6,7T7,1T8,7T9,T10, TINF, TSUR 

DIMENSION TOLD (III,JJJ, KKK) , TNEW(III, JJJ, KKK) 
CBBBBBBBBBBBBBBBBBBBBBBBBBBBB BOTTOM LAYER BBBBBBBBBBBBBBBBBBBBBBBBBBBBE 


LAYER = 


& 


INCRAD = 


1 
oT we Ol LOM AY ER LNNERS RADIUS **** 
a 


RAD = RMIN 
eS xxx***x* BOTTOM LAYER, INNER RADIUS, FIRST PHI ******x** 
IPHI =1 


T1=TOLD (INCRAD, IPHI, LAYER) 
T2=TOLD (INCRAD, IPHI, (LAYER+1) ) 
T3=TOLD (INCRAD, NPHI, LAYER) 
T4=TOLD (INCRAD, (IPHI+1) , LAYER) 
T5=TOLD ( (INCRAD+1) , IPHI, LAYER) 
CALL ECREI (TEMP) 

TNEW (INCRAD, IPHI, LAYER) =TEMP 


€ x*x**x*%* BOTTOM LAYER, INNER RADIUS, MID-PHIS ******** 
DO 100 IPHI=2, (NPHI-1) 


T1=TOLD (INCRAD, IPHI, LAYER) 
T2=TOLD (INCRAD, IPHI, (LAYER+1) ) 
T3=TOLD (INCRAD, (IPHI-1) , LAYER) 
T4=TOLD (INCRAD, (IPHI+1) , LAYER) 
T5=TOLD ( (INCRAD+1) , IPHI, LAYER) 
CALL ECREI (TEMP) 

TNEW (INCRAD, IPHI, LAYER) =TEMP 


100 CONTINUE 
€ x*x**x**** BOTTOM LAYER, INNER RADIUS, LAST PHI ******** 
IPHI=NPHI 
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T1=TOLD (INCRAD, IPHI, LAYER) 
T2=TOLD (INCRAD, IPHI, (LAYER+1) ) 
T3=TOLD (INCRAD, (IPHI-1) , LAYER) 
T4=TOLD (INCRAD, 1, LAYER) 
T5=TOLD ( (INCRAD+1) , IPHI, LAYER) 
CALL ECREI (TEMP) 
TNEW (INCRAD, IPHI, LAYER) =TEMP 
GE xxx *k**Ke BOTTOM LAYER, MID-RADII ******xx 
DO 200 INCRAD=2, (NODES-1) 
RAD = RMIN + (INCRAD-1)*DR 
C kkk kek BOTTOM LAYER, MID-RADII, FIRST PHI ******** 
IPHI = 1 
Tl = TOLD(INCRAD, IPHI, LAYER) 
T2 = TOLD (INCRAD, IPHI, (LAYER+1) ) 
T3 = TOLD (INCRAD, NPHI, LAYER) 
T4 = TOLD(INCRAD, (IPHI+1) , LAYER) 
TS = TOLD((INCRAD-1) , IPHI, LAYER) 
T6 = TOLD((INCRAD+1),IPHI, LAYER) 
CALL ECREM (TEMP) 
TNEW(INCRAD, IPHI, LAYER) = TEMP 
e ** x **k EK BOTTOM LAYER, MID RADII, MID-PHIS ******** 
DO 300 IPHI=2, (NPHI-1) 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD(INCRAD, IPHI, (LAYER+1)’) 
T3 = TOLD(INCRAD, (IPHI-1), LAYER) 
T4 = TOLD (INCRAD, (IPHI+1), LAYER) 
T5 = TOLD ((INCRAD-1) , IPHI, LAYER) 
T6 = TOLD((INCRAD+1) , IPHI, LAYER) 
CALL ECREM (TEMP) 


e 


TNEW (INCRAD, IPHI, LAYER) = TEMP 
300 CONTINUE 
e RARKAEAX BOTTOM GAYER, ie De Wr ic eA ol Gr hh ee 


JO) lsh ys tal IL 
Tl = TOLD(INCRAD, IPH, LAYER) 


T2 = TOLD(INCRAD, IPHI, (LAYER+1) ) 
T3 = TOLD(INCRAD, (IPHI-1) , LAYER) 
T4 = TOLD (INCRAD, 1, LAYER) 


TS = TOLD ((INCRAD-1), IPHI, LAYER) 
T6 = TOLD ((INCRAD+1) , IPHI, LAYER) 
CALL ECREM (TEMP) 
TNEW(INCRAD, IPHI, LAYER) = TEMP 
200 CONTINUE 
GC x***x* OUTER RADIUS **** 
INCRAD = NODES 
RAD = RMAX 
C x*kx*x*k*k** BOTTOM LAYER, OUTER RADIUS, FIRST PHI ******** 
IPHI = 1 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD (INCRAD, IPHI, (LAYER+1) ) 
T3 = TOLD (INCRAD, NPHI, LAYER) 
T4 = TOLD (INCRAD, (IPHI+1), LAYER) 
TS = TOLD((INCRAD-1), IPHI, LAYER) 
CALL ECREO (TEMP) 
TNEW (INCRAD, IPHI, LAYER) = TEMP 
g kxxx*x*** FIRST LAYER, OUTER RADIUS, MID-PHIS ******** 
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DO y400 IPHl=2 7 (NPHI-1) 
T1 = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD (INCRAD, IPHI, (LAYER+1) ) 
T3 = TOLD(INCRAD, (IPHI-1), LAYER) 
T4 = TOLD (INCRAD, (IPHI+1), LAYER) 
Toe —eLOLD\ (INGCRAD=), 1PH1, LAYER) 
CALL ECREO (TEMP) 


TNEW(INCRAD, IPHI, LAYER) = TEMP 
400 CONTINUE 
Ee xx x*x*x* BOTTOM LAYER, OUTER RADIUS, LAST PHI ******xx 


DPHI = NPHI 

Tl = TOLD (INCRAD, IPHI, LAYER) 

T2 = TOLD(INCRAD, IPHI, (LAYER+1) ) 

Ts TOLD (INCRAD, (IPHI-1) , LAYER) 

T4 = TOLD (INCRAD, 1, LAYER) 

T5 = TOLD ( (INCRAD-1), IPHI, LAYER) 

CALL ECREO (TEMP) 

TNEW (INCRAD, IPHI, LAYER) = TEMP 

CMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MID-LAYERS MMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 

DO 500 LAYER=2, (NLAYER-1) 


‘s ca MIDS LAVERS,; INNERSRADIUS =-**** 
INCRAD = 1 
RAD = RMIN 
c Beeee  - ~ MID-LAYERS INNER RADIUS, FIRST PHE ***%*%x*** 
IPHI=1 


Tl = TOLD (INCRAD, IPHI, LAYER) 

T2 = TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3 = TOLD (INCRAD, IPHI, (LAYER-1) ) 

T4 = TOLD(INCRAD, (NPHI), LAYER) 

TS = TOLD(INCRAD, (IPHI+1), LAYER) 

T6 = TOLD((INCRAD+1), IPHI, LAYER) 

CALL ECRMI (TEMP) 

TNEW (INCRAD, IPHI, LAYER) = TEMP 
e x*kxx*x** MID-LAYERS, INNER RADIUS, MID-PHIS ******x** 

DO 600 IPHI=2,NPHI 

Tl = TOLD(INCRAD, IPHI, LAYER) 

T2 = TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3 = TOLD(INCRAD, IPHI, (LAYER-1) ) 

T4 = TOLD(INCRAD, (IPHI-1), LAYER) 

T5 = TOLD(INCRAD, (IPHI+1), LAYER) 

T6 = TOLD((INCRAD+1), IPHI, LAYER) 

CALL ECRMI (TEMP) 


TNEW (INCRAD, IPHI, LAYER) = TEMP 
600 CONTINUE 
é xxx x*k*KK* MID-LAYERS, INNER RADIUS, LAST PHI ******** 


IPHI=NPHI 
Tl] = TOLD (INGRAD,I1PHI, LAYER) 
T2 = TOLD(INCRAD, IPHI, (LAYER+1) ) 
T3 = TOLD (INCRAD, IPHI, (LAYER-1) ) 
T4 = TOLD (INCRAD, (IPHI-1), LAYER) 
T5 = TOLD (INCRAD, 1, LAYER) 
T6 = TOLD ((INCRAD+1), IPHI, LAYER) 
CALL ECRMI (TEMP) 
TNEW (INCRAD, IPHI, LAYER) = TEMP 
E xxx *kkKK*K MID-LAYERS, MID-RADII ******** 


Shs: 


DO 700 INCRAD=2, (NODES-1) 
RAD = RMIN + (INCRAD-1) *DR 
‘S: KRKKKEEE MID-DAY ERG gem — kee eo ee een) eee 
TPH == 
Tl = TOLD (INCRAD, IPHI, LAYER) 


T2 = TOLD (INCRAD,IPHI, (LAYER+1) ) 
T3 = TOLD(INCRAD, IPHI, (LAYER-1) ) 
T4 = TOLD (INCRAD, NPHI, LAYER) 


T5 = TOLD (INCRAD, (IPHI+1) , LAYER) 
T6 = TOLD((INCRAD-1), IPHI, LAYER) 
T7 = TOLD((INCRAD+1), IPHI, LAYER) 
CALL ECRMM (TEMP) 
TNEW (INCRAD, IPHI, LAYER) = TEMP 
2 kkk kK MID-LAYERS, MID-RADII, MID-PHIS ******** 
DO 800 IPHI=2, (NPHI-1) 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD(INCRAD, IPHI, (LAYER#1) ) 
T3 = TOLD (INCRAD, IPHI, (LAYER-1) ) 
T4 = TOLD(INCRAD, (IPHI-1) , LAYER) 
T5 = TOLD(INCRAD, (IPHI+1) , LAYER) 
T6 = TOLD((INCRAD-1) , IPHI, LAYER) 
T7 = TOLD((INCRAD+t1), IPHI, LAYER) 
CALL ECRMM (TEMP) 


TNEW (INCRAD, IPHI, LAYER) = TEMP 
800 CONTINUE 
Cc KAKKAKAKX MID=-LAVYERG, oll) RAD Ul peece tb ee = 


IPHI = NPHI 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD (INCRAD, IPHI, (LAYER+1) ) 
T3 = TOLD(INCRAD, IPHI, (LAYER-1) ) 
T4 = TOLD(INCRAD, (IPHI-1), LAYER) 
TS = TOLD{INCRAD, 1, LAYER) 
T6 = TOLD((INCRAD-1), IPHI, LAYER) 
T7 = TOLD((INCRAD+1), IPHI, LAYER) 
CALL ECRMM (TEMP) 
TNEW (INCRAD, IPHI, LAYER) = TEMP 
700 CONTINUE 
G **** MID-LAYERS, OUTER RADII **** 
INCRAD = NODES 
RAD = RMAX 
C kk x kkk MID-LAYERS, OUTER RADIUS, FIRST PHI ******** 
IPHI = 1 
Tl = TOLD (INCRAD, IPHI, LAYER) 


T2 = TOLD (INCRAD, IPHI, (LAYER+1) ) 
T3 = TOLD(INCRAD, IPHI, (LAYER-1) ) 
T4 = TOLD (INCRAD, NPHI, LAYER) 


TS = TOLD (INCRAD, (IPHI+1), LAYER) 
T6 = TOLD( (INCRAD-1), IPHI, LAYER) 
CALL ECRMO (TEMP) 
TNEW (INCRAD, IPHI, LAYER) = TEMP 
C KRKEKKE*X MID=-LAYERS, (OUTER eA Uc jue UD ee see ok Soe 
DO 900 IPHI=2, (NPHI-1)) 
Tl = TOLD (INCRAD, IPHI, LAYER) 
TZ TOLD (INCRAD, IPHI, (LAYER+1) ) 
as TOLD (INCRAD, IPHI, (LAYER-1) ) 
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T4 TOLD (INCRAD, (IPHI-1) , LAYER) 
igs, TOLD (INCRAD, (IPHI+1) , LAYER) 
T6 = TOLD( (INCRAD-1), IPHI, LAYER) 
CALL ECRMO (TEMP) 


TNEW (INCRAD, IPHI, LAYER) = TEMP 
900 CONTINUE 
€ xx*%**k*k* MID-LAYERS, OUTER RADIUS, LAST PHI ******** 


Seat = NPHI 

Tl = TOLD (INCRAD, IPHI, LAYER) 
12 = TOLD (INCRAD, IPHI, (LAYER+1)) 
T3 =) TOLD (INCRAD, IPH1, (LAYER-1) ) 
T4 = TOLD (INCRAD, (IPHI-1) , LAYER) 
T5 = TOLD (INCRAD, 1, LAYER) 
T6 = TOLD( (INCRAD-1), IPHI, LAYER) 
CALL ECRMO (TEMP) 
TNEW (INCRAD, IPHI, LAYER) = TEMP 

200 CONTINUE 


ener rT TTT TITTITTIrTiTiIiTiITii? TOP LAYER TITITITITITITITITITITITITITIITITT 


LAYER = NLAYER 


Cc Bo TOPMEAYER,. INNER RADIUS **** 
INCRAD = 1 
RAD = RMIN 
oS fen ~~ TOP LAYER, INNER RADIUS, FIRST PHE *****x*x** 
IPHI=1 


T1=TOLD (INCRAD, IPHI, LAYER) 
T2=TOLD (INCRAD, IPHI, (LAYER-1) ) 
T3=TOLD (INCRAD, NPHI, LAYER) 
T4=TOLD (INCRAD, (IPHI+1) , LAYER) 
TS=TOLD ( (INCRAD+1) , IPHI, LAYER) 
CALL ECREI (TEMP) 

TNEW (INCRAD, IPHI, LAYER) =TEMP 


c xx*x*xx*x* TOP LAYER, INNER RADIUS, MID-PHIS ******** 


DO 1000 IPHI=2, (NPHI-1) 
TL=TOLD (INCRAD, IPHI, LAYER) 
T2=TOLD (INCRAD, IPHI, (LAYER-1) ) 
T3=TOLD (INCRAD, (IPHI-1), LAYER) 
T4=TOLD (INCRAD, (IPHI+1), LAYER) 
T5=TOLD ( (INCRAD+1) , IPHI, LAYER) 
CALL ECREI (TEMP) 
TNEW (INCRAD, IPHI, LAYER) =TEMP 


1000 CONTINUE 
C x***x%*** TOP LAYER, INNER RADIUS, LAST PHI ******** 
IPHI=NPHI 


pA tOLD (INCRAD, IPHi, LAYER) 
T2=TOLD (INCRAD, IPHI, (LAYER-1) ) 
T3=TOLD (INCRAD, (IPHI-1) , LAYER) 
T4=TOLD (INCRAD, 1, LAYER) 
T5=TOLD ( (INCRAD+1) , IPHI, LAYER) 
CALL ECREI (TEMP) 
TNEW (INCRAD, IPHI, LAYER) =TEMP 
S *=** TOP LAYER, MID RADII aiee**~ 
DO 1100 INCRAD=2, (NODES-1) 
RAD = RMIN + (INCRAD-1) *DR 


é x*x*xx*k** TOP LAYER, MID-RADII, FIRST PHI *****x** 


IPHI = 1 


oF 


Tl = TOLD(INCRAD, IPHI, LAYER) 
T2 = TOLD(INCRAD, IPHI, (LAYER-1) ) 
T3 = TOLD (INCRAD, NPHI, LAYER) 
T4 = TOLD(INCRAD, (IPHI+1) , LAYER) 
TS = TOLD((INCRAD-1), IPHI, LAYER) 
T6 = TOLD((INCRAD+1) , IPHI, LAYER) 
CALL ECREM (TEMP) 
TNEW (INCRAD, IPHI, LAYER) = TEMP 

c *xx*k*x**k*x TOP LAYER, MID RADII, MID-PHIS ******** 
DO 1200 IPHI=2, (NPHI-1) 

Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD(INCRAD, IPHI, (LAYER-1) ) 
T3 = TOLD(INCRAD, (IPHI-1) , LAYER) 
T4 = TOLD (INCRAD, (IPHI+1) , LAYER) 
TS = TOLD( (INCRAD-1) , IPHI, LAYER) 
T6 = TOLD( (INCRAD+1), IPHI, LAYER) 
CALL ECREM (TEMP) 


ll 


TNEW (INCRAD, IPHI, LAYER) = TEMP 
1200 CONTINUE 
\e *kRKAEEE TOP LAYER, MiDe RAD Ieee rites = a eee 


IPHI = NPHI 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD(INCRAD, IPHI, (LAYER-1) ) 
T3 = TOLD(INCRAD, (IPHI-1) , LAYER) 
T4 = TOLD (INCRAD, 1, LAYER) 
TS = TOLD((INCRAD-1), IPHI, LAYER) 
T6 = TOLD((INCRAD+1) , IPHI, LAYER) 
CALL ECREM (TEMP) 
TNEW (INCRAD, IPHI, LAYER) = TEMP 
1100 CONTINUE 
E *x** TOP LAYER, OUTER RADIUS **** 
INCRAD = NODES 
RAD = RMAX 
e *x*x***x* TOP LAYER, OUTER RADIUS, FIRST PHI ******** 
IPHI = 1 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD(INCRAD, IPHI, (LAYER-1) ) 
T3 = TOLD (INCRAD, NPHI, LAYER) 
T4 = TOLD(INCRAD, (IPHI+1) , LAYER) 
TS = TOLD ((INCRAD-1), IPHI, LAYER) 
CALL ECREO (TEMP) 
TNEW (INCRAD, IPHI, LAYER) = TEMP 
C *x*kx*k**x* TOP LAYER, OUTER RADIUS, MID-PHIS ****x**** 
DO 1300 IPHI=2, (NPHI-1) 
Tl = TOLD(INCRAD, IPHI, LAYER) 
T2 = TOLD (INCRAD, IPHI, (LAYER-1) ) 
T3 = TOLD(INCRAD, (IPHI-1) , LAYER) 
T4 = TOLD(INCRAD, (IPHI+1) , LAYER) 
TS = TOLD ((INCRAD-1) , IPHI, LAYER) 
CALL ECREO (TEMP) 


TNEW (INCRAD, IPHI, LAYER) = TEMP 
1300 CONTINUE 
Cc xxkekxk** TOP LAYER, OUTER RADIUS, LAST PHI *******% 


PHI =] NPE 
Tl = TOLD (INCRAD, IPHI, LAYER) 


es 


nS 
T4 


T2 = TOLD (INCRAD, IPHI, (LAYER-1) ) 
= TOLD (INCRAD, (IPHI-1) , LAYER) 
= TOLD (INCRAD, 1, LAYER) 

TS = TOLD((INCRAD-1) , IPHI, LAYER) 


CALL ECREO (TEMP) 


TNEW (INCRAD, IPHI, LAYER) = TEMP 
998 RETURN 
END 
€ 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
Cc ECREI FORTRAN A - (REV. 11/14/88) 
Cc KKK KKK KK KKK KKK KKK KKK KKH KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKEKKKKKKEK 
o * ECREI - THIS SUBROUTINE COMPUTES THE NODAL TEMPERATURES AT 
c * THE INNER SURFACE OF THE END LAYERS (NORTH, SOUTH) * 
é * OF A RIGHT-CIRCULAR CYLINDER USING THE EXPLICIT METHOD * 
Gs * OF FINITE DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL * 
@ * COORDINATES. 3 
Cc KKKKKKKKKKKKKKKHKKKKKKKKKKKKKHKKKKKKKEKKKKKKKKKAKKKKHKKKKKEKEKKKKKKKK 
@ PROGRAM LINE 631 
SUBROUTINE ECREI (TNEW) 
IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
COMMON /CONDUC/ DKR,DKP,DKZ 
COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 
COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON /HEAT/ ALFA, FO, OQPSUBN, OQPSUBS, QPSUBI, QPSUBO 
COMMON /MATSIZ/ NLAYER, NODES, NPHI 
COMMON /NPOSIT/ INCRAD, IPHI, LAYER 
COMMON /PARAMS/ CSUBP, RHO 
COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
SoOMMON (/TEMPS/ T1,T2,T3,1T4,T5,16,T/,18,1T9,T10, TINE, TSUR 
Cc kk BODY xe 
IF (LAYER.EQ.1) THEN 
Q = QPSUBS 
HE = HSUBS 
EPSE = EPSUBS 
ELSEIF (LAYER.EQ.NLAYER) THEN 
Q = QPSUBN 
HE = HSUBN 
EPSE = EPSUBN 
ENDIF 
Dl = DKP*DZ**2/ (2*DKZ*RAD* (RAD+DR/4) *DPHI**2) 
D2 = DKR* (RAD+DR/2) *DZ**2/ (DKZ* (RAD+DR/ 4) *DR**2) 
D3 = DZ/DKZ 
D4 = (RAD*DZ**2) / (DKZ* (RAD+DR/ 4) *DR) 
DS = SIGMA* (T1+TSUR) * (T1**24+TSUR**2) 
D6 = 1 + 2*FO*(D3* (HE + DS*EPSE) + D4*(HSUBI + DS*EPSUBI) ) 
c 
TNEW = 1/D6* (T1+2*FO* ((T2-T1) + D1*(T3+T4-2*T1) + D2*(TS5S-T1) 
1+ D3*(Q + HE*TINF + D5*EPSE*TSUR) 
2+ D4*(QPSUBI + HSUBI*TINF + DS*EPSUBI*TSUR) ) ) 
‘® 
998 RETURN 
END 
@ 
c 
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ECREM FORTRAN A - (REV. 11/14/88) 


KR KK KKK KK KKK KKK KKK KKK KKK KK KK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KEKE KK 


* ECREM - THIS SUBROUTINE COMPUTES THE TEMPERATURES OF ThE Mire 


se RADIAL NODES FOR THE END LAYERS (NORTH, SOUTH) * 
: OF A RIGHT-CIRCULAR CYLINDER USING THE EXPLICIT METHOD * 
: OF FINITE DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDR IGA 
vs COORDINATES. % 
SCS cee ee eS eC CCS SS CSS SS SSS SSS CSS SCC CSCC CS SCC CSCC CC CSCS Ce ee eS 


PROGRAM LINE 678 

SUBROUTINE ECREM (TNEW) 

IMPLICIT DOUBLE PRECISION (A-H,0O-Z) 

COMMON /CONDUC/ DKR,DKP,DKZ 

COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON /MATSIZ/ NODES,NPHI,NLAYER 

COMMON /NPOSIT/ INCRAD, IPHI, LAYER 

COMMON /PARAMS/ CSUBP, RHO 

COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON /TEMPS/ 71,72,73,774,715, 16-07-2071 210 DoE tour 


C kk* BODY kkk 
IF (LAYER.EQ.1) THEN 
Q = QPSUBS 
EPSE = EPSUBS 
HE = HSUBS 
ELSEIF (LAYER.EQ.NLAYER) THEN 
Q = QPSUBN 
EPSE = EPSUBN 
HE = HSUBN 
ENDIF 
Dl = (DKP*DZ**2) / (2*DKZ*RAD**2*DPHI**2) 
D2 = (DKR* (RAD-DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 
D3 = (DKR* (RAD+DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 
D4 = P27 bz 


DS = SIGMA* (T1+TSUR) * (T1**2+TSUR**2) 

D6 = 1 + 2*FO*D4* (HE+D5S*EPSE) 

TNEW = 1/D6* (Ti + 2*FO*((T2-T1)” + DI*(73+14-2~71) ? D215 ee 
1+ D3* (T6-T1) + D44(@ 2 Be -TiNe > ochre or foULie. 

RETURN 

END 
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ECREO FORTRAN A - (REV. 11/14/88) 

KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKKKKKKKKKEK 
* ECREO - THIS SUBROUTINE COMPUTES THE NODE TEMPERATURES AT * 
* THE OUTER SURFACE OF THE END LAYERS (NORTH, SOUTH) * 
* OF A RIGHT-CIRCULAR CYLINDER USING THE EXPLICIT METHOD * 
* OF FINITE DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL * 
x COORDINATES. : 
KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKKKK 


PROGRAM LINE 721 
SUBROUTINE ECREO (TNEW) 


100 


8 


Taal i Me 6) a Te > 1 ss > BE @ Ya @ BA ge 


PvMEetICi?T DOUBLE PRECISION (A-H, 0-2) 


COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 


/CONDUC/ DKR,DKP,DKZ 
/CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 


/GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 


/HEAT/ 
/MATSIZ/ NODES,NPHI,NLAYER 
/NPOSIT/ INCRAD, IPHI, LAYER 
/PARAMS/ CSUBP, RHO 

/RADN/ 


ALFA, FO, QPSUBN, QPSUBS, OQPSUBI, QPSUBO 


EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 


EME Sveti 2,1 5,04) lol o, 17, 1S,29,210, TINE, TSUR 


xxx BODY xxx 


fe (LAYER.EQ.1) THEN 
Q = QPSUBS 
EPSE = EPSUBS 


HE = HSUBS 
ELSEIF (LAYER.EQ.NLAYER) THEN 
Q = QPSUBN 
EPSE = EPSUBN 
HE = HSUBN 
ENDIF 
Dl = (DKP*DZ**2) / (2*DKZ* (RAD-DR/ 4) *RAD*DPHI**2) 
D2 = (DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/ 4) *DR**2) 
Doe = DZ/DKZ 
D4 = (RAD*DZ**2) / (DKZ* (RAD-DR/ 4) *DR) 
D5 = SIGMA*(T1+TSUR) * (T1**2+TSUR**2) 
D6 = 1 + 2*FO*( D3* (HE+DS5*EPSE) + D4* (HSUBO+D5*EPSUBO) ) 
TNEW = 1/D6*(T1 + 2*FO*((T2-T1) + (T34+T4-2*T1) + D2*(T5-T1) 


1+ D3*(Q + HE*TINF + DS*EPSE*TSUR) 


eo a~ (OP SUBO + HSUBO* TINE + D5*EPSUBO*TSUR))) 


RETURN 
END 


ECRMI FORTRAN A - (REV. 11/14/88) 


KKKKKKKKKKKKKKKK KEKE KK KKK KK KKK KK KKK KKK KE KKKKKKKKKKEKK KKK KKKKKKKK KKK KE 


Se EGRMI 


KKK KKEK KKK KK KK KKK KEK KKK KKK KK KKK KKK KKK KKK KKKKKK KKK KKK KKKKKKKK KKK 


- THIS SUBROUTINE COMPUTES THE NODE TEMPERATURES AT 
THE INNER SURFACE OF THE MID-LAYERS (2 THRU NLAYER-1) 
OF A RiGHt-CIRCULAR CYLINDER USING THE EXPLICIT METHOD 
GE TFINITE DIFFERENCE ANALYSIS IN s-D POLAR-CYLINDRICAL 


COORDINATES. 


PROGRAM LINE 767 
SUBROUTINE ECRMI (TNEW) 
wir cit DOUBLE PRECISION (A=H#O-Z) 


COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 


/CONDUC/ DKR, DKP,DK2Z 
/CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 


/GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 


/HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
/PARAMS/ CSUBP, RHO 

/RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
MEME Sy ethene 4 TL omoe 27, 26709) T10, TINE, TSUR 


kk BODY xxx 
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* 
x 
* 
x 
* 
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998 


END 


C 


BME (DKP*DZ**2) / (DKZ* RAD* (RAD+DR/ 4) *DPHI**2) 

D2 (2*DKR* (RAD+DR/2) *DZ**2) / (DKZ=({RAD+DRy 4) DR «= 2) 
D3 = (2*RAD*DZ**2) / (DKZ* (RAD+DR/4) *DR) 

x*x* NO D4 REQUIRERS >> 

DS SIGMA* (TI+TSUR)*4{11**2+8s0R 

D6 1 + FO*D3* (HSUBI1D5*EPSUB 


TNEW = 1/D6*(T1 + FO*((T2+T3=2*T1) + D1*(T4+TS-2*71)) + D2 aoe 
1+ D3* (OPSUBI = HSUBI~TINE =F 7b5"*EPSUBT-FSuUR))) 


RETURN 
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ECRMM FORTRAN A - (REV. 11/14/88) 


KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKEKKKKKKKKKKKKKKK 


* ECRMM =- THIS SUBROUTINE COMPUTES THE NODAL TEMPERATURES Al - 
5 THE MID-RADII OF THE MID-LAYERS (2 THRU NLAYER-1) * 
ss OF A RIGHT-CIRCULAR CYLINDER USING THE EXPLICIT Meat 
* OF FINITE DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL * 
‘i COORDINATES. * 
FOI I III IOI IO III III II I II kk 


PROGRAM LINE 801 

SUBROUTINE ECRMM (TNEW) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON /CONDUC/ DKR, DKP,DKZ 

COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON /PARAMS/ CSUBP, RHO 

COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON ©/TEMPS/ © Ti, 72,733,145 75) fo)? fet tO, Pin edu 
xKkex BODY xKxx 

Dl = (DKP*DZ**2) / (DKZ*RAD**2*DPHI**2) 

b2 (DKR* (RAD-DR/2) *DZ**2) / (DKZ* RAD*DR* *2) 

D3 (DKR* (RAD+DR/2) *DZ**2) / (DKZ*RAD*DR**2) 

*** NO D4, DS OR D6 REQUIRED *** 

TNEW = Tl + FO* ((T2+T3-2*T1) + D1*(T4+T5-2*T1) + D2*(T6-T1) 

1+ D3*(T7-T1) ) 


RETURN 
END 
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ECRMO FORTRAN A - (REV. 11/14/88) 
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* ECRMO - THIS SUBROUTINE COMPUTES THE NODAL TEMPERATURES AT * 
* THE OUTER SURFACE OF THE MID-LAYERS (NORTH, SOUTH) * 
* OF A RIGHT-CIRCULAR CYLINDER USING BRIAN'S METHOD OF * 
* FINITE DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL * 
x COORDINATES. i 
KK KK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KK KKH KKK KKK KKK KKK KKK KKK KKK KKKKSE 


PROGRAM LINE 832 
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SUBROUTINE ECRMO (TNEW) 

IMPLICIT DOUBLE PRECISION (A-H,0O-Z) 

COMMON /CONDUC/ DKR, DKP, DKZ 

COMMON /CONVEC/ HSUBN,HSUBS, HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON /PARAMS/ CSUBP, RHO 

COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

SOMMON /TEMPS/ T1,T2,T3,74,15, T6,T/, 18,19, 110, TINE, TSUR 
xkKkx* BODY xxx 

D1 (DKP*DZ**2) / (DKZ*RAD* (RAD-DR/4) *DPHI**2) 

DW (2*DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/ 4) *DR**2) 

D3 = (2*RAD*DZ**2) / (DK2Z* (RAD-DR/ 4) *DR) 

**x** NO D4 REQUIRED *** 

DS = SIGMA* (T1+TSUR) * (T1**2+TSUR**2) 

D6 = 1 + FO*D3* (HSUBO + DS*EPSUBO) 

TNEW = 1/D6*(T1 + FO* ((T2+T3-2*T1) + D1* (T44+T5-2*T1) + D2* (T6-T1) 

1+ D3* (QPSUBO + HSUBO*TINF + D5*EPSUBO*TSUR) ) ) 


RETURN ; 
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MAP122 FORTRAN A - (REV. 10/04/88) 


KRKK KKK KKK KK KKK KK KKK KEK KKK KKK KKK KKK KK KKK KK KK KKK KKK KKK KK KK 


* MAP122 - SUBROUTINE TO MAP MATRIX ONE ONTO MATRIX TWO * 
KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK 
PROGRAM LINE 861 

SUBROUTINE MAP122 (DMAT1,DMAT2) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON /ARRSIZ2/ III, JJJ,KKK 


‘COMMON /MATSIZ/ NODES,NPHI,NLAYER 


DIMENSION DMATI (I1i,JJJ, KKK) ,DMAT2 (111, JJJ, KKK) 
DO 100 LAYER=1,NLAYER 
DO 200 IPHI=1,NPHI 
DO 300 INCRAD=1,NODES 
DMAT2 (INCRAD, IPHI, LAYER) = DMAT1 (INCRAD, IPHI, LAYER) 
CONTINUE 
CONTINUE 
CONTINUE 
RETURN 
END 
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SHTFRM FORTRAN A - (REV. 11/14/88) 

KEK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKK 
* SHTFRM - SUBROUTINE TO PRINT THE TEMPERATURES OF A DESIG- * 
* DESIGNATED NODE FROM A DATA FILE. a 
KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK K 
PROGRAM LINE 884 

SUBROUTINE SHTFRM (L,M,N) 

IMPLICIT DOUBLE PRECISION (A-H,0-2Z) 
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COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI,QPSUBO COMMON /TIMES/ 
DELTIM, DTMAX, FINTIM, LIMIT 

DIMENSION TEMP (15,15,15) 

OPEN (UNIT=13,FILE='ANALYT') 

OPEN (UNIT=14, FILE='ECRDAT') 

OPEN (UNIT=15, FILE='ECRSHT') 

READ IN MATRIX SIZE 

READ (14,*) NODES,NPHI,NLAYER 

WRITE HEADERS TO DATA FILE 15 (ERROR) 

WRITE (15,*) 'EXPLICIT - WITH CONDUCTION, CONVECTION AND RADIATION 
i ' 

WRITE (15, *) 

WRITE (15,*) 'DATA SAVED AS FILE:' 

WRITE (15,*) 

WRITE (15,*) 'CPU TIME:' 

WRITE (15, *) 

WRITE (15,*)'GRID SIZE (RADIAL,PHI,Z DIRECTIONS) :',NODES,NPHI,NLAY 
1ER 

WRITE (15, *) 

WRITE (15,*) 'SELECTED NODE FOR PRINTOUT:',L,M,N WRITE (15, *) 
WRITE (15,*) 'THEORETICAL MAX TIMESTEP (EXPLICIT) :',DTMAX WRITE 


(15, *) 

WRITE (15,*) “SELECTED TIMESTEP (SEC) 207 DE LT EMeWn TE (eee 

WRITE (15,*) "GRID FOURIER NUMBER (Z,DELTIM DEPENDENT): ',FO WRITE 
(15, *) 

WRITE (15,*) “OUTER SURFACE HEAT FLUX (W/M*™*2) >", OPSUBO WniaE 
ES), 


WRITE “(l5.> 
WRITE (15,15) 
FORMAT (T33, 'NODE') 
WRITE (15,25) 
FORMAT (T5,'TIME',T17, 'DELTIM',T30, 'TEMPERATURE' ) 
READ TIME, DELTIM AND TEMPERATURE MATRICES FROM FILE 14 (*DATA) 
READ (14,*,END=998) TIME,DELTIM 
DO 100 K=1,NLAYER 

DO 200 I=1,NODES 

DO 300 J=1,NPHI 
READ (14,*,END=997) TEMP (I,d,K) 
CONTINUE 

CONTINUE 
CONTINUE 
WRITE (15,55) TIME,DELTIM, TEMP (L,M,N) 

FORMAT (T1,F9.2,T15,F8.4,7T26,F14.8) 
GOTO 2 
WRITE (*,*) 'ERROR - EOF READ ERROR ON PROGRAM LINE 864! 
WRITE (15,*) 'ERROR - EOF READ ERROR ON PROGRAM LINE 864' 
CLOSE A413) 


CLOSE (14) 
CLOSE (iS) 
RETURN 
END 
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LNGFRM FORTRAN A - (REV. 11/05/88) 
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* LNGFRM - SUBROUTINE TO PRINT FULL MATRIX OF TEMPERATURES * 
ms FROM DATA FILES. a 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KEKKKKKKKEEKKEK 


PROGRAM LINE 948 

SUBROUTINE LNGFRM 

iMPEleil DOUBLE PRECISION (A-H,0-Z) 

COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON /TIMES/ DELTIM, DTMAX, FINTIM, LIMIT 
PIMENSTON TEMP (15,15, 15) 

OPEN (UNIT=11,FILE='ECRLNG') 

OPEN (UNIT=14, FILE='ECRDAT') 


READ (14,*) NODES,NPHI,NLAYER 
WRITE (15,*) ‘EXPLICIT - WITH CONDUCTION, CONVECTION AND RADIATION 
qe? 

WRITE (15, *) 

WRITE (15,*) 'DATA SAVED AS FILE:' 

WRITE (15,*) 

WRITE (15,*) 'CPU TIME:' 

WRITE (15, *) 

WRITE (11,*) 'GRID SIZE (RADIAL, PHI,Z DIRECTIONS) :',NODES,NPHI,NLA 
1YER 

WRITE (11, *) 

WRITE (11,*) ‘THEORETICAL MAX TIMESTEP (EXPLICIT) :',DTMAX WRITE 
fay) 

WRITE (11,*) ‘SELECTED TIMESTEP (SEC):',DELTIM WRITE (11, *) 

WRITE (11,*) 'GRID FOURIER NUMBER (Z,DELTIM DEPENDENT): ',FO WRITE 
et, *) 

WRITE (11,*) 'SURFACE HEAT FLUX (W/M**2):',QPSUBO WRITE (11, *) 
WRITE (11,*) 

READ (14,%*,END=998) TIME,DTIME 


DO 100 K=1,NLAYER 
DO 200 I=1,NODES 
DO 300 J=1,NPHI 


CONTINUE 


READ (14, *,END=997) TEMP (I,J,K) 


CONTINUE 


CONTINUE 
CALL PRTMAT 


GeTO 1 


Welie (li, *) 


WRITE (*, *) 


REWIND 14 


CLOSE 


RETURN 


END 


PRIMAT FORTRAN A - 


sazal), 


(TIME, DTIME, TEMP, NODES, NPHI, NLAYER) 


"LNGFRM - EOF READ ERROR IN PROGRAM LINE 712' 
"LNGFRM - EOF READ ERROR IN PROGRAM LINE 712' 
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(REV. 11/04/88) 


KKK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KKKK KKK KKK KKKKKAKKEE 


* PRTMAT - SUBROUTINE TO PRINT THREE DIMENDIONAL MATRIX * 


* 


TO Elle di 


(~LONG)™ 3 
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PROGRAM LINE 1000 
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SUBROUTINE PRTMAT (TIME, DTIME, DMAT,NODES,NPHI,NLAYER) IMPLICIT 
DOUBLE PRECISION (A-H,0-Z) 
DIMENSION DMAT(15,15,15) 
WRITE (11515)) DIME, DT IM: 
FORMAT (T1,'TIME = ',F9.3,' SEC',T30, ‘TIME INCREMENT =.',F9.3,' SE 
eM) 
DO 100 K=1,NLAYER 
WRITE(11,10) K 

FORMAT (//T1, 'NODE:',T45, 'LAYER NUMBER: ',14/) DO 200 I=1,NODES 
WRITE (11,25) I, (DMAT(I,J,K) , J=1,NPHI) 

FORMAT (T1,13,T10,4(D16.10, 1X) ) 

CONTINUE 
CONTINUE 
WRITE (11, *) 
WRITE (11,*) 
RETURN 
END 
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PRTARR FORTRAN A - (REV. 11/04/88) 
KKKKKKKKE KKK KKK KK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKK 
* PRTARR - SUBROUTINE TO PRINT THREE DIMENDIONAL MATRIX * 
* TO FILE 11 (*LONG). * 
KKKK KKK KKK KEK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK 
PROGRAM LINE 1027 
SUBROUTINE PRTARR (TIME, DTIME, DMAT, NODES, NPHI, NLAYER) 
IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
DIMENSION DMAT(15,15,15) 
WRITE (11,15) TIME,DTIME 
FORMAT (T1,'TIME = ',F9.3,' SEC',1T30, 'TIME INCREMENT = ‘)E9oo oo 
ews 
DO 100 K=1,NLAYER 
WRITE (11,10) K 

FORMAT (//T1, 'NODE:',T45, 'LAYER NUMBER: ',1I4/) DO 200 I=1,NODES 
WRITE (11,25) 21, (DMAT(1,J0,K) ,J=1,NPHD) 

FORMAT (T1713, 710-4 bulG. leo 

CONTINUE 
CONTINUE 
WRITE (11, *) 
WRITE (11, *) 
RETURN 
END 
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ERROR FORTRAN A - (REV. 11/05/88) 

KKK KKK KKK KKK KKK ERK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 
* ERROR - SUBROUTINE TO COMPUTE ERROR FOR AND PRINT TEMPERA- * 
* TURES OF A DESIGNATED NODE FROM A VALIDATION DATA * 
* PLE, 
KKKKKKK KKK KKK KKK KKK KKK KKK KKKKKEK KKK KK KEKKKKKKKKKKKKEKKKKKKKKKKKEK 
PROGRAM LINE 1025 

SUBROUTINE ERROR (L,M,N) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
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COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON /TIMES/ DELTIM, DTMAX, FINTIM, LIMIT 

DIMENSION TEMP (15,15,15) 

OPEN (UNIT=13, FILE='ANALYT') 

OPEN (UNIT=14, FILE='ECRDAT') 

OPEN (UNIT=15, FILE='ECRERR') 

IF (((QPSUBO.GT.1352) . AND. (QPSUBO.LT.1354)) .OR. ( (QPSUBO.GT.14999) 


1.AND. 


(CPSUBO.LYT2 T2001) ))) THEN 


CONTINUE 


ELSE 


GOTO 998 


ENDIF 


READ IN MATRIX SIZE 


READ 


(i477) NODES, NEni, NLAYER 


WRITE HEADERS TO DATA FILE 15 (ERROR) 


WRITE 
1° 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
1ER 
WRITE 
WRITE 
WRITE 


Sy *) 


WRITE 
WRITE 


ii, * ) 


WRITE 


a, *) 


WRITE 
WRITE 


FORMAT 
FORMAT 


(15,*) "EXPLICIT - WITH CONDUCTION, CONVECTION AND RADIATION 
(Aya) 
(15,*) "DATA SAVED AS FILE:' 
(57 a) 
(15,*) 'CPU TIME:' 
G5)*) 
(15,*) 'GRID SIZE (RADIAL, PHI,Z DIRECTIONS) :',NODES, NPHI,NLAY 
(1507) 
(15,*) "SELECTED NODE FOR COMPARISON:',L,M,N WRITE (15, *) 
(15,*) 'THEORETICAL MAX TIMESTEP (EXPLICIT):',DTMAX WRITE 
(15,*) 'SELECTED TIMESTEP (SEC):',DELTIM WRITE (15, *) 

(15,*) 'GRID FOURIER NUMBER (Z,DELTIM DEPENDENT): ',FO WRITE 
(15,*) 'OUTER SURFACE HEAT FLUX (W/M**2):',QPSUBO WRITE 
Gl3y.*)) 
(15,15) 

(T33, 'NODE',1T48, 'ANALYTIC', T64, 'PERCENT') WRITE (15,25) 


Weel eli Ont iM', 130, IBMEERATURE*', 1460, ‘TEMPERATURE ' 


ie 65, 'ERROR'/) 
READ TIME, DELTIM AND TEMPERATURE MATRICES FROM FILE 14 (*DATA) 2 


READ 


(14, *, END=998) 


TIME, DELTIM 


DO 100 K=1,NLAYER 
BeezZ00 I=1,NODES 
DO 300 J=1,NPHI 


READ (14, *,END=995) TEMP (I,J,K) 
CONTINUE 
CONTINUE 
CONTINUE 
READ IN APPROPRIATE ANALYTIC SOLUTIONS FROM FILE 13 (ANALYT) 
tee eoUBO., LT.1400.) THEN 
READ (13, 35,END=996) EXACT 
BORMAT “(219 ,F 14.3) 
ELSE 
READ (13, 45,END=997) EXACT 
FORMAT (T39,F14.8) 
ENDIF 
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COMPUTE PERCENT ERROR AND WRITE TO FILE 15 (ERROR) 
PE = (EXACT-TEMP (L,M,N))/EXACT * 100. 
WRITE (15,55) TIME,DELTIM, TEMP (L,M,N), EXACT, PE 
FORMAT (T1,F9.2,T15,F8.4,1726,F14.6, 74 fl4,0, 061,505) 
GOTO 2 
WRITE (*,*) "ERROR - EOF READ ERROR ON PROGRAM LINE 652! 
WRITE (15,*) "ERROR - EOF READ ERROR ON PROGRAM LINE 652' 
WRITE (*,*) "ERROR - EOF READ ERROR ON PROGRAM LINE 658' 
WRITE (15,*) "ERROR - EOF READ ERROR ON PROGRAM LINE 658'! 
WRITE (*,*) "ERROR - EOF READ ERROR ON PROGRAM LINE 661' 
WRITE (15,%*) 'ERROR - EOF READ ERROR ON PROGRAM LINE 661' 
REWIND 14 
CLOSE (13) 
CLOSE (15) 
RETURN 
END 
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APPENDIX F 
BRIAN’S METHOD CODE 


BCR FORTRAN A - (REV. 12/08/88) 
SATELLITE MODEL - VALIDATED 12/08/88 
FOR FORTVS APPLICATION ONLY 

TO EXECUTE TYPE 'LOAD BCR TIMER (START' 


KRKEKKKKKKEKKKEKKKKKEKK KKK KKEKKEKKKEKKKKEKK KKK KEKE KKK KKK KKKK KKK 


* BCR - PROGRAM TO COMPUTE NODE TEMPERATURES FOR A RIGHT * 


* CIRCULAR CYLINDER SUBJECTED TO CONVECTIVE AND/OR * 
* RADIATIVE BOUNDARY CONDITIONS USING BRIAN'S * 
x METHOD OF FINITE DIFFERENCE ANALYSIS. * 


KREKKKKKKKKEKKKKKKEKKEKEKKEKEKKE KEKE KEKE KK KKKKKKK KKK KEKE KKKKKKEKEK 


IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

EEMENSTON TOLD(15,15, 15), TNEW(15, 15,15) 

PEMENSION TSTAR(15,15,15),T2STAR(15,15,15) 

BIMENSION T3STAR(15,15,15) 

COMMON /ARRSIZ/ III,JJJ, KKK 

COMMON /CONDUC/ DKR, DKP,DKZ 

COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON /MATSIZ/ NODES, NPHI,NLAYER 

COMMON /PARAMS/ CSUBP, RHO 

COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

SOMMON /TEMPS/ T1,T2,T3,T4,T5,T6,T7,7T8,T9,T10, TINE, TSUR 
COMMON /TIMES/ DELTIM, DTMAX, FINTIM, LIMIT 

START TIMER 

CALL STIME 

OPEN (UNIT=11, FILE='BCRLNG') 

SEEN (UNIT=14,FILE='BCRDAT') 

©EEN (UNIT=15, FILE='BCRCPU") 


CREEK KKK KKK KKKKKEKKK KEK USER DEFINED VARIABLES KKK KEK KKK KEK KKK KEKE K KR KK KK 


BELTIIM = 120.0D+00 

Pandan = 3000 .D+00 

IPRINT = l 

ACTUAL MATRIX DIMENSIONS 
NODES = 10 

NPHI = 4 

NLAYER = 5 

NODE SPECIFICATION FOR FILE ESHORT 
MRAD = 10 

MPHI = 2 

MLAYER = 3 

DECLARED ARRAY DIMENSIONS 
20 JE I tae Be) 

JIT = 15 

KKK = 15 


peosekr tivity COEFFICIENTS 
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ALFAN = 0.4D+00 
ALFAS = 0.4D+00 
ALFAO = 0.4D+00 


ALBEDO COEFFICIENT 
ALBEDO = 0.30D+00 
THERMAL CONDUCTIVITIES 
DKR = 177.D+00 

DKP 177.D+00 

DKZ = 177.D+00 
EMISSIVITIES 
EPSUBN = 0.9D+00 
EPSUBS 0.9D+00 
EPSUBI = 0.D+00 
EPSUBO = 0.9D+00 
CONVECTION COEFFICIENTS 
HSUBN = 0.D+00 
HSUBS = 0.D+00 
HSUBI = 0.D+00 
HSUBO = 0.D+00 
HEAT FLUXES 

SOLAR = 1353.D+00 
EIR = 238.0D+00 
GEN = 1000. 

QPSUBI = 0.D+00 
QPSUBO = 0.D+00 


QPSUBN = 0.D+00 
OPSUBS = 0, D700 
GEOMETRY 


RMIN = 0.15244D+00 

RMAX = 0.22866D+00 

ZMAX = 1.D+00 

VIEW FACTORS WITH THE EARTH 
VERTHN = 0.D+00 

VERTHS = 1.D+00 

VERTHI = 0.D+00 

VERTHO = 0.D+00 

VIEW FACTORS WITH SPACE 
VSPCN = 1.D+00 

VSPCS = 0.D+00 

VSPCI = 0.D+00 

VSPCO = 1.D+00 


TEMPERATURES 
TABS = 273.D+00 
TINIT = 293.D+00 
TINF = 0.D+00 
TSUR = 4.D+00 


MATERIAL PROPERTIES 
CSUBP (—-875,0D700 


RHO jer /O20b+T00 
INITIALIZE OTHER VARIABLES 
ICOUNT = 0 

ITIME = 0 

ORBTIM = 0.D+00 

PI = 4,0D+00*DTAN (1.D+00) 
RAD = stalls 
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SIGMA = 5.67D-08 
TIME = 0.D+00 
Steal = 0.D+00 


INITIALIZE MATRICES 

GAiL BMINIT (TOLD, TINIT) 
CALL BMINIT (TSTAR, TINIT) 
CALL BMINIT (T2STAR, TINIT) 
CALL BMINIT (T3STAR, TINIT) 
CALL BMINIT (TNEW, TINIT) 
SURFACE AREA CALCULATIONS 
SAREAN = PI* (RMAX**2 - RMIN**2) 
SAREAS = PI* (RMAX**2 - RMIN**2) 
SAREAI PI* (2*RMIN) *ZMAX 
SAREAO PI* (2*RMAX) *ZMAX 
INITIAL CALCULATIONS 

ALFA = DK2Z/ (RHO*CSUBP) 
DPHI = 2.*PI/NPHI 

DR = (RMAX-RMIN) / (NODES-1) 
DZ = ZMAX/ (NLAYER-1) 

LPHI = 360/NPHI 

QPSUBI = GEN/SAREAI 
ORBITAL PARAMETERS 

PERIOD = 5440.D+00 

ECLIPS = 2181.9D+00 


OMEGA = 1.155D-03 

TAU = 0.01*PERIOD/4 

TIME] = 0.D+00 

TIME2 = PERIOD/4.D+00 

TIME3 = 107.8D+00/360 * PERIOD 

TIME4 = (270 - 17.8)/360 * PERIOD - 4*TAU 


TIME5 = (270 - 17.8)/360 * PERIOD 

TIME6 = 270/360 * PERIOD 

ESTABLISH EXPLICIT STABILITY REQUIREMENT (FOR REFERENCE ONLY) 
CALL STABIL (DTMAX} 

FO = ALFA*DELTIM/ (DZ**2) 

LIMIT = FINTIM/DELTIM + 500 

WRITE MATRIX DIMENSIONS TO FILE 14 (BCRDAT) 

WRITE (14,*) NODES,NPHI,NLAYER 


x**x PRINT OPTION 3 - SAVES DESIGNATED NODE TEMPS AT SPECIFIED 
PRINT INTERVAL. USE FOR LONG PERIOD EVALS. 

WRITE (11,*) 'BCRSAT' 

WRITE (11,*) 

Weele (11,888) 

FORMAT (T1, 'TIME',T15, 'DELTIM',T25, 'LAYER1',1T40, 'LAYER3', 155, 'LAYE 

1R"') 

WRITE (11,*) 


CMMMMMMMMMMMMMMMMMMM BEGIN TEMPERATURE COMPUTATIONS MMMMMMMMMMMMMMMMMMMM 


c 


START CLOCK TIMER (MAINFRAME VERSIONS OF CODE ONLY) 
WRITE (11,*) 'ENTERING LOOP TIME' 
CALL GTIME (1,11) 
Demi t—1, LIMIT 
ICOUNT=ICOUNT+H1 
TIME=TIME+DELTIM 


ORBTIM = ORBTIM + DELTIM 
IF (ORBTIM.GE.PERIOD) ORBTIM = ORBIIM |= PERiee 
SURFACE FLUX CALCULATIONS (TIME DEPENDENT) 
IF ((ORBTIM.GE.0) .AND. (ORBTIM.LE.TIME2)) THEN 
QPSUBN = ALFAN*SOLAR*DCOS (OMEGA*ORBTIM) 


QPSUBS = ALFAS* (EIR + ALBEDO*SOLAR*DCOS (OMEGA*ORBTIM) ) 
QPSUBO = 0.5*ALFAO*SOLAR*DSIN (OMEGA*ORBTIM) 
ELSEIF ((ORBTIM.GT.TIME2) .AND. (ORBTIM.LE.TIME3) ) THEN 
QPSUBN = 0. 
QPSUBS = ALFAS* (EIR + (ALBEDO+DCOS (OMEGA*ORBTIM) ) *SOLAR) 


QPSUBO = 0.5*ALFAO*SOLAR*DSIN (OMEGA*ORBTIM) 
ELSEIF ((ORBTIM.GT.TIME3) .AND. (ORBTIM.LE.TIME4)) THEN 
QPSUBN = 0. 
QPSUBS ALFAS*EIR 
OQPSUBO = 0.D+00 
ELSEIF ((ORBTIM.GT.TIME4) .AND. (ORBTIM.LE.TIMES)) THEN 
QPSUBN = 0.D+00 


QPSUBS = ALFAS* (EIR 
iL + DABS (ALBEDO*SOLAR*DSIN (OMEGA*ORBTIM) ) 
1 * (1-DEXP (- (ORBTIM-TIME4) /TAU) ) ) 
QPSUBO = 0.5*ALFAO*DABS (ALBEDO*SOLAR 
1 + DSIN (OMEGA*ORBTIM) : 
1 * (1-DEXP (- (ORBTIM-TIME4) ) /TAU) ) 
ELSEIF ((ORBTIM.GT.TIMES) .AND. (ORBTIM.LT.TIME6)) THEN 
QPSUBN = 0.D+00 
QPSUBS = ALFAS* (EIR 
il + DABS (ALBEDO*SOLAR*DSIN (OMEGA*ORBTIM) ) ) 


QPSUBO = 0.5*ALFAO*DABS (SOLAR*DSIN (OMEGA*ORBTIM) ) 
ELSEIF (ORBTIM.GT.TIME6) THEN 
QPSUBN = ALFAN*DABS (SOLAR*DCOS (OMEGA*ORBTIM) ) 
QPSUBS = ALFAS* (EIR 
1 + DABS (ALBEDO* SOLAR*DSIN (OMEGA*ORBTIM) ) ) 
QPSUBO = 0.5*ALFAO*DABS (SOLAR*DSIN (OMEGA*ORBT IM) ) 
ENDIF 
CALL MAIN SUBROUTINES 
CALL STEP1 (TOLD, TSTAR) 
WRITE (11,*) 'TSTAR' 
CALL PRTMAT (TIME, DELTIM, TSTAR, NODES, NPHI, NLAYER) 
CALL STEP2 (TOLD, TSTAR, T2STAR) 
WRITE (11,*) '‘T2STAR' 
CALL PRTMAT (TIME,DELTIM, T2STAR, NODES, NPHI,NLAYER) 
CALL STEP3 (TOLD, TSTAR, T2STAR, T3STAR) 
WRITE (11,*) 'T3STAR' 
CALL PRTMAT (TIME, DELTIM, T3STAR, NODES, NPHI, NLAYER) 
CALL STEP4 (TOLD, TSTAR, T2STAR, T3STAR, TNEW) 
WRITE (11,*) 'TNEW' 
CALL PRTMAT (TIME, DELTIM, TNEW, NODES, NPHI, NLAYER) 
MAP NEW TEMPERATURE MATRIX ONTO OLD TEMPERATURE MATRIX 
CALL MAP122 (TNEW, TOLD) 


7h *  GENE RATE SPRINTOUD =. ca. 
IF (ICOUNT.GE.IPRINT) THEN 
ICOUNT = 0 
WRITE (14,*) TIME,DELTIM 
***x* CONVERT TNEW TO EXCESS TEMPERATURE, PRIGR= lene RING >" 
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DO 200 LAYER=1,NLAYER 
DO 300 INCRAD=1,NODES 
DO 400 IPHI=1,NPHI 
TNEW (INCRAD, IPHI, LAYER) = TNEW(INCRAD, IPHI,LAYER 1) - TINIT 
**x**x PRINT OPTION 1 - USE WITH CMPSHT, COMPAR, LNGFRM, SHTFRM, BCRERR 
SHORT EVALUATION TIMES ONLY (<400 SEC) 
WRITE (14,*) TNEW(INCRAD, IPHI, LAYER) 
CONTINUE 
CONTINUE 
CONTINUE 


=**x PRINT OPTION Z - SAVES COMPLETE MATRIX AT SPECIFIED PRINT 
INTERVAL - SWITCH OFF ALL SUBROUTINES LISTED 
UNDER PRINT -OPTICNeL FIRST. 
WRITE Sti, ~*)) BCR SATELLITE MODEL* 
WHITE s( =, ~) 
CALL PRTIMAT (TIME,DELTIM, TNEW, NODES, NPHI, NLAYER) 


*** PRINT OPTION 3 - SAVES DESIGNATED NODE TEMPS AT SPECIFIED 

PRINT INTERVAL. USE FOR LONG PERIOD EVALS. 
WRITE (11,889) TIME, DELTIM, TNEW(5,1,1),TNEW(5,1,3),TNEW(5,1,5) 
FORMAT (T1,F9.3,T15,F9.3,725,F12.6,7T40,F12.6,1T55,F12.6) 


kkk kkk RE-SPECIFY PRINT INTERVALS ******** 
IF (TIME.GE.99.9) THEN 
IPRINT = 200 
DELTIM = 20. 
FO = ALFA*DELTIM/ (DZ**2) 
ELSEIF (TIME.GE.9.9) THEN 
IPRINT = 100 
DELTIM = 10. 
FO = ALFA*DELTIM/ (DZ**2) 
ELSEIF (TIME.GE.0.99) THEN 
IPRINT = 10 
DELTIM = 1: 
FO = ALFA*DELTIM/ (DZ**2) 
ENDIF 
ENDIF 
TIME INTERVAL DELIMITER 
IF (TIME.GE.FINTIM) GOTO 101 
CONTINUE 
STOP CLOCK TIMER (MAINFRAME VERSIONS OF CODE ONLY) 
CONTINUE 


S26 GIIME (1,11) 


WRITE 
CLOSE 
CLOSE 


QAaAaaNAANAANA 


(i=) “EXITED LOOP’ 

(14) 

(15) 

WRITE APPROPRIATE DATA FILES 
CALL CMPSHT 

CALL SHTFRM (MRAD,MPHI,MLAYER) 
CALL COMPAR 

CALL ERROR (MRAD,MPHI,MLAYER) 
CALL LNGFRM 


26 GTIME (1,11) 


299 


SioP 
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END 


OO Ne OOOO 


300 
200 
100 
998 
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BMINIT FORTRAN A - (REV. 9/28/88) 
KEKE KK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KHER KKK KKK KKK 
* BMINIT - SUBROUTINE TO INITIALIZE TEMPERATURE MATRIX TO A * 
* SPECIFIED VALUE (BRIAN'S METHOD ARRAY FORMAT) * 
KEK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KK KK KKK KKK KKKKKK KKK KKKKK 
PROGRAM LINE 172 
SUBROUTINE BMINIT (DMAT, TINIT) 
IMPLICIT DOUBLE PRECISION (A-H,0-2Z) 
COMMON /ARRSIZ/ III,JJJ,KKK 
DIMENSION DMAT (III, JJJ, KKK) 
DO 100 LAYER=1, KKK 
DO 200 IPHI=1,JJJ 
DO 300 INCRAD=1, III 
DMAT (INCRAD, IPHI, LAYER) = TINIT 
CONTINUE 
CONTINUE 
CONTINUE 
RETURN 
END 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


STABIL FORTRAN A (REV. 11/14/88) 


KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKHK 


* STABIL - SUBROUTINE TO COMPUTE THEORETICAL MAXIMUM TIME * 
i INCREMENT ALLOWED TO MAINTAIN STABILITY IN EXPLICIT * 
is FINITE DIFFERENCE ANALYSIS OF A CYLINDER IN 3-D ig 
= POLAR CYLINDRICAL COORDINATES. * 


KKK KKK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKKKKKKKKKKKK 


PROGRAM LINE 196 
SUBROUTINE STABIL (DTMAX) 
IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
DIMENSION DT (6) 
COMMON /CONDUC/ DKR, DKP,DKZ 
COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 
COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI COMMON 
/HEAT / ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO COMMON /RADN/ 
EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
xk«xx BODY xkwx 

DO 50 I=1,6 
DT(I) = 0.D+00 
CONTINUE 
DUMMY = (DZ**2)/ALFA 
END LAYERS, INNER SURFACE NODES 

DCREI = 1 + (2*DKP*DZ**2) / (2*DKZ*RAD* (RAD+DR/4) *DPHI**2) 
1+ (DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/ 4) *DR**2) 

DT(1) = DUMMY/ (2*DCREI) 

DTMAX = DT(1) 
END LAYERS, MID-RADII NODES 

DCREM = 1 + 2* (DKP*DZ**2) / (2*DKZ*RAD**2*DPHI**2) 
1+ (DKR* (RAD-DR/2) *DZ**2) / (2*DKZ*RAD*DR* *2) 
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998 
END 
C 


2+ (DKR* (RAD+DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 
DT(2) = DUMMY/ (2*DCREM) 
END LAYERS, OUTER SURFACE NODES 
DCREO = 1 + 2* (DKP*DZ**2) /(2*DKZ* (RAD-DR/4) *RAD*DPHI**2) 
1+ (DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/ 4) *DR**2) 
DT(3) = DUMMY/ (2*DCREO) 
MID-LAYERS, INNER SURFACE NODES 
DCRMI = 2 + 2* (DKP*DZ**2) / (DKZ*RAD* (RAD+DR/4) *DPHI**2) 
1+ (2*DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 
DT (4) = DUMMY/DCRMI 
MID-LAYERS, MID-RADII NODES 
DCRMM = 2 + 2* (DKP*DZ**2) / (DKZ*RAD**2*DPHI**2) 
1+ (DKR* (RAD-DR/2) *DZ**2) / (DKZ*RAD*DR**2) 
2+ (DKR* (RAD+DR/2) *DZ**2) / (DKZ*RAD*DR**2) 
DT(5) = DUMMY/DCRMM 
MID-LAYERS, OUTER SURFACE NODES 
DCRMO = 2 + 2* (DKP*DZ**2) / (DKZ*RAD* (RAD-DR/4) *DPHI**2) 
1+ (2*DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 
DT (6) = DUMMY/DCRMO 
DO 100 I=1,6 
teeth) (LyeGr 0) AND. (DIMAX.Gr.DI(1)))) DIMAX = DT(I) 
WRITE (*,*) ‘FROM STABIL, I,DT(I)',I,DT(I) 
CONTINUE 
IF (DTMAX.LE.0) WRITE (*,*) 'STABIL - DTMAX LE ZERO' 
eens (*, *) "FROM STABIL, DTMAX =", DTMAX 
RETURN 
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SieP] FORTRAN A = (REV. 10/12/88) 


KKK KK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KKKKKKKKK KKK KKK 


BeolTEP] = THIS SUBROUTINE CONSTRUCTS THE TEMPERATURE MATRIX 

“3 FOR THE FIRST INTERMEDIATE STEP (STAR LEVEL) IN = 
x THE Z DIRECTION OF A 3-D, POLAR-CYLINDRICAL ADAP- * 
i TATION OF BRIAN'S METHOD OF FINITE DIFFERENCE es 
= ANALYSIS FOR A RIGHT CIRCULAR CYLINDER WITH A 
‘i SPECIFIED INNER SURFACE TEMPERATURE AND CONSTANT * 
me OUTER SURFACE HEAT FLUX. * 
FOO OR IO OO II IO ok 


PROGRAM LINE 259 

SUBROUTINE STEP1 (TOLD, TSTAR) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON /ARRSIZ/ III,JJJ,KKK 

COMMON /CONDUC/ DKR,DKP,DKZ 

COMMON /CONVEC/ HSUBN,HSUBS,HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON /MATSIZ/ NODES,NPHI,NLAYER 

COMMON /NPOSIT/ INCRAD, IPHI, LAYER 

COMMON /PARAMS/ CSUBP, RHO 

COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON /TEMPS/ Peat hor 4 oe hoe hwo toro, TINE, TSUR D 
Divenworon TOLD (15,15,15),TSTAR(15, 15,15) 
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DIMENSION AA(15),BB(15) ,CGtis)] De (15)e TEME 


CIIIIIIIIIIIIIIIIIIIIIIII INNER SURFACE NODES wii ee 


100 


210 


INCRAD = 1 
RAD = RMIN 


«x kK INNER SURFACE, FIRST PHI *******% 


Pree 
kk kkk INNER SURFACE, FIRST PHI, BOTTOM LAYER ******** 
LAYER = 1 


Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD (INCRAD, NPHI, LAYER) 
T3 = TOLD(INCRAD, (IPHI+1), LAYER) 
T4 = TOLD ( (INCRAD+1), IPHI, LAYER) 
CALL BCREI1 (AA (LAYER) , BB (LAYER) ,CC (LAYER) , DD (LAYER) ) C 
xkaeREKKE TNNER SURFACE, FIRST PHl, eMiD-EAvERoe = -— oe 
DO 100 LAYER=2, (NLAYER-1) 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD (INCRAD, NPHI, LAYER) 
T3 = TOLD (INCRAD, (IPHI+1) , LAYER) 
T4 = TOLD ((INCRAD+1), IPHI, LAYER) 
CALL BCRMI1 (AA(LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
CONTINUE 


xx kek INNER SURFACE, FIRST PHI, TOP LAYER *******x 
LAYER = NLAYER 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD (INCRAD, NPHI, LAYER) 
T3 = TOLD (INCRAD, (IPHI+1) , LAYER) 
T4 = TOLD( (INCRAD+1), IPHI, LAYER) 
CALL BCREI1 (AA (LAYER) , BB (LAYER) ,CC (LAYER) , DD (LAYER) ) 


**** COMPUTE NODE TEMPERATURES **** 
CALL TRIDAG (1, NEAYER, AA SB 5Ce DDN TEMP) 
DO 110 LAYER=1,NLAYER 
TSTAR (INCRAD, IPHI, LAYER) = TEMP (LAYER) 
CONTINUE 


kx xx**** INNER SURFACE,MID-PHIS ******** 
DO 200 IPHI=2, (NPHI~1) 
xk kkk KK INNER SURFACE, MID-PHIS, BOTTOM LAYER ******** 
LAYER = 1 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD(INCRAD, (IPHI-1), LAYER) 
T3 = TOLD(INCRAD, (IPHI+1) , LAYER) 
T4 = TOLD((INCRAD+1) , IPHI, LAYER) 
CALL BCREI1(AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 


xx%*x%***x* INNER SURFACE, MID-PHIS, MID-LAYERS *******x 
DO 210 LAYER=2, (NLAYER-1) 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD (INCRAD, (IPHI-1) , LAYER) 
T3 = TOLD(INCRAD, (IPHI+1) , LAYER) 
T4 = TOLD ((INCRAD+1), IPHI, LAYER) 
CALL BCRMI1 (AA (LAYER) , BB(LAYER) , CC (LAYER) , DD (LAYER) ) 
CONTINUE 
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C i NNER SURT ACK, MID-PHIS, IGF LAYER “*****x* 
LAYER = NLAYER 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD(INCRAD, (IPHI-1), LAYER) 
T3 = TOLD(INCRAD, (IPHI+1), LAYER) 
T4 = TOLD ( (INCRAD+1), IPHI, LAYER) 
CALL BCREI1 (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 


Cc 
Cc ***x* COMPUTE NODE TEMPERATURES **** 
CALL TRIDAG (1,NLAYER, AA, BB, CC, DD, TEMP) 
DO 230 LAYER=1,NLAYER 
TSTAR(INCRAD, IPHI, LAYER) = TEMP (LAYER) 
250 CONTINUE 
Cc 
200 CONTINUE 
c 
G xk kkk k** INNER SURFACE, LAST PHI ******x* 
IPHI = NPHI 
C 
Cc xk kk *k*KK* INNER SURFACE, LAST PHI, BOTTOM LAYER ******x** 
LAYER = 1 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD (INCRAD, (IPHI-1), LAYER) 
T3 = TOLD (INCRAD, 1, LAYER) 
T4 = TOLD( (INCRAD+1), IPHI, LAYER) 
CALL BCREI1(AA(LAYER) , BB(LAYER) , CC (LAYER) , DD (LAYER) ) 
© 
c xk kkk k** INNER SURFACE, LAST PHI, MID-LAYERS *******x 


DO 300 LAYER=2, (NLAYER-1) 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD(INCRAD, (IPHI-1) , LAYER) 
T3 = TOLD (INCRAD, 1, LAYER) 
T4 = TOLD( (INCRAD+1), IPHI, LAYER) 
CALL BCRMI1(AA(LAYER) , BB (LAYER) ,CC (LAYER) , DD (LAYER) ) 


300 CONTINUE 


C 
e kkk *k***k* INNER SURFACE, LAST PHI, TOP LAYER *****x*x*x 
LAYER = NLAYER 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD (INCRAD, (IPHI-1), LAYER) 
T3 = TOLD (INCRAD, 1, LAYER) 
T4 = TOLD((INCRAD+1), IPHI, LAYER) 
CALL BCREI1 (AA(LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
@ 
E ***x* COMPUTE NODE TEMPERATURES **** 
CALL TRIDAG (1,NLAYER, AA, BB, CC, DD, TEMP) 
DO 350 LAYER=1,NLAYER 
TSTAR(INCRAD, IPHI, LAYER) = TEMP (LAYER) 
350 CONTINUE 
c 
Cc 


CMMMMMMMMMMMMMMMMMMMMMMMMMM MID-RADIUS NODES MMMMMMMMMMMMMMMMMMMMMMMMMMM 
DO 400 INCRAD=2, (NODES-1) 
RAD = RMIN + (INCRAD-1) *DR 


ley 


e xxx kkk MID-RADII, FIRST PHI ******** 


iPHig= se 
S 
Sc AARKKKKK MID-RADII, FIRST PHI) BOl 16M GUAY Er Baa 
LAYER = 1 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD (INCRAD, NPHI, LAYER) 
T3 = TOLD(INCRAD, (IPHI+1), LAYER) 
T4 = TOLD ((INCRAD-1) , IPHI, LAYER) 
TS = TOLD( (INCRAD+1),IPHI, LAYER) 


CALL BCREM1 (AA(LAYER),BB(LAYER),CC(LAYER) ,DD(LAYER)) C 
c kxkkX*KX*KK MID-RADII, FIRST PHI, MID-LAYERS ******** 
DO 500 LAYER=2, (NLAYER-1) 
Tl = TOLD (INCRAD, IPHI, LAYER) 


T2 = TOLD (INCRAD, NPHI, LAYER) 
T3 = TOLD(INCRAD, (IPHI+1), LAYER) 
T4 = TOLD((INCRAD-1) , IPHI, LAYER) 


T5 = TOLD ((INCRAD+1) , IPHI, LAYER) 
CALL BCRMM1 (AA(LAYER),BB(LAYER) ,CC (LAYER) , DD (LAYER) ) 
500 CONTINUE 


G 
e kk kkk KK MID-RADII, FIRST PHI, TOP LAYER ******** 
LAYER = NLAYER 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD (INCRAD, NPHI, LAYER) 
T3 = TOLD (INCRAD, (IPHI+1) , LAYER) 
T4 = TOLD( (INCRAD-1), IPHI, LAYER) 
TS = TOLD((INCRAD+1), IPHI, LAYER) 
CALL BCREM1 (AA(LAYER),BB(LAYER) ,CC (LAYER) ,DD (LAYER) ) 
GC 
e **xk*x COMPUTE NODE TEMPERATURES **** 
CALL TRIDAG (1,NLAYER, AA, BB, CC, DD, TEMP) 
DO 475 LAYER=1,NLAYER 
TSTAR(INCRAD, IPHI, LAYER) = TEMP (LAYER) 
475 CONTINUE 
c 
‘Ss xKaKKeKKeKKK MID-RADII, MID-PHIS KaKKKKKK 
DO 600, IPHI=2, (NPHI-1) 
@ 
@ xk kx kkk MID-RADII, MID-PHIS, FIRST LAYER *******% 
LAYER = 1 
Tl = TOLD (INCRAD i> au ieame) 
T2 = TOLD (INCRAD, (IPHI-1), LAYER) 
T3 = TOLD (INCRAD, (IPHI+1) , LAYER) 
T4 = TOLD ((INCRAD-1), IPHI, LAYER) 
T5 = TOLD ( (INCRAD+1), IPHI, LAYER) 
CALL BCREM1 (AA(LAYER),BB(LAYER) ,CC (LAYER) , DD (LAYER) ) 
Cc 
é xx kkk MID=-RADII, MID-PHIS, MID-LAYERS ******** 


DO 700 LAYER=2, (NLAYER-1) 


Tl = TOLD (INCRAD, IPHI, LAYER) 

T2 = TOLD (INCRAD, (IPHI-1) , LAYER) 
T3 = TOLD (INCRAD, (IPHI+1) , LAYER) 
T4 = TOLD ((INCRAD-1), IPHI, LAYER) 
TS = TOLD ( (INCRAD+1), IPHI, LAYER) 
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700 


SS 
600 


800 


675 


CALL BCRMM1 (AA(LAYER) , BB (LAYER) ,CC (LAYER) ,DD (LAYER) ) 
CONTINUE 


kk kk eK MID-RADII, MID-PHIS, TOP LAYER ******x* 
LAYER = NLAYER 
Tl = TOLD(INCRAD, IPHI, LAYER) 
T2 = TOLD(INCRAD, (IPHI-1) , LAYER) 
T3 = TOLD(INCRAD, (IPHI+1) , LAYER) 
T4 = TOLD((INCRAD-1) , IPHI, LAYER) 
T5 = TOLD( (INCRAD+1) , IPHI, LAYER) 
CALL BCREM1 (AA(LAYER) ,BB(LAYER) ,CC (LAYER) , DD (LAYER) ) 
x*** COMPUTE NODE TEMPERATURES **** 
CALL TRIDAG (1,NLAYER, AA, BB,CC, DD, TEMP) 
DO 575 LAYER=1,NLAYER 
TSTAR(INCRAD, IPHI, LAYER) = TEMP (LAYER) 
; CONTINUE 
CONTINUE 


kk kk kKKK MID-RADII, LAST PHI ****** ex 
fal = NPHI 


kk * kkk MID-RADII, LAST PHI, FIRST LAYER ******** 
LAYER = l 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD(INCRAD, (IPHI-1) , LAYER) 
T3 = TOLD(INCRAD, 1, LAYER) 
T4 = TOLD((INCRAD-1),IPHI, LAYER) 
T5 = TOLD((INCRAD+1), IPHI, LAYER) 
CALL BCREM1 (AA(LAYER) , BB(LAYER) ,CC (LAYER) , DD (LAYER) ) 


kkk kk KR MID-RADII, LAST PHI, MID-LAYERS *******x 
DO 800 LAYER=2, (NLAYER-1) 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD(INCRAD, (IPHI-1) , LAYER) 
T3 = TOLD(INCRAD, 1, LAYER) 
T4 = TOLD((INCRAD-1),IPHI, LAYER) 
T5 = TOLD ((INCRAD+1) , IPHI, LAYER) 
CALL BCRMM1 (AA(LAYER) , BB(LAYER) , CC (LAYER) , DD (LAYER) ) 
CONTINUE 


een MELD-RAD TL | bASt PHI, TOP LAYER. ***2 "4% 
LAYER = NLAYER 
Tl = TOLD (INCRAD, IPHI, LAYER) 
TZ = TOLD(INCRAD, (IPHI-1) , LAYER) 
Ts TOLD (INCRAD, 1, LAYER) 
T4 = TOLD ((INCRAD-1) , IPHI, LAYER) 
T5 = TOLD ((INCRAD+1) , IPHI, LAYER) 
CALL BCREM1 (AA(LAYER) , BB (LAYER) ,CC (LAYER) , DD (LAYER) ) 


a oe COreUrE NODES TEMPERATURES ~*** 
CALL TRIDAG (1,NLAYER, AA, BB, CC,DD, TEMP) 
DO 675 LAYER=1,NLAYER 
TSTAR (INCRAD, IPHI, LAYER) = TEMP (LAYER) 
CONTINUE 


Pes 


400 CONTINUE 

ce 

COOOCOOODOODOOOOOOOOO0000000 OUTER SURFACE NODES OOQQOQQQ0Q00000000000000000000 
INCRAD = NODES 

RAD = RMAX 


c 
c xxx kk*kk OUTER RADIUS, FIRST PHI *****xx% 
IPHI = 1 
C 
c kxk*k*k*k** OUTER RADIUS, FIRST PHI, BOTTOM LAYER *******x 
LAYER = 1 : 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD (INCRAD, NPHI, LAYER) 
T3 = TOLD(INCRAD, (IPHI+1), LAYER) 
T4 = TOLD((INCRAD-1), IPHI, LAYER) 
CALL BCREO1 (AA(LAYER) , BB (LAYER) ,CC (LAYER) , DD (LAYER) ) 
C 
C x k*kxk*k** OUTER RADIUS, FIRST PHI, MID-LAYERS ******** 


DO 900 LAYER=2, (NLAYER-1) 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD (INCRAD, NPHI, LAYER) 
T3 = TOLD(INCRAD, (IPHI+1), LAYER) 
T4 = TOLD ((INCRAD-1) , IPHI, LAYER) 
CALL BCRMO1 (AA(LAYER) ,BB(LAYER) ,CC (LAYER) , DD (LAYER) ) 
900 CONTINUE 


€ 
GC xx *xk*kk* OQUTER RADIUS, FIRST PHI, TOP LAYER ******x* 
LAYER = NLAYER 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD (INCRAD, NPHI, LAYER) 
T3 = TOLD (INCRAD, (IPHI+1) , LAYER) 
T4 = TOLD((INCRAD-1) , IPHI, LAYER) 
CALL BCREO1 (AA(LAYER) , BB(LAYER) ,CC (LAYER) , DD (LAYER) ) 
@ 
G ***%* COMPUTE NODE TEMPERATURES *** 
CALL TRIDAG (1,NLAYER, AA, BB, CC, DD, TEMP) 
DO 775 LAYER=1,NLAYER 
TSTAR(INCRAD, IPHI, LAYER) = TEMP (LAYER) 
775 CONTINUE 
@ 
é x**k*k**** OUTER SURFACE, MID-PHIS ******** 
DO 1000 IPHI=2, (NPHI-1) 
C 
c x*k*k*kx**k* OUTER RADIUS, MID-PHIS, FIRST LAYER ******xx 
LAYER = 1 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD (INCRAD, (IPHI-1) , LAYER) 
T3 = TOLD (INCRAD, (IPHI+1) , LAYER) 
T4 = TOLD((INCRAD-1) , IPHI, LAYER) 
CALL BCREO1 (AA(LAYER),BB(LAYER) ,CC (LAYER) , DD (LAYER) ) 
Cc 
@ xx kx*kk*k*k OUTER RADIUS, MID-PHIS, MID-LAYERS *******x 
DO 1100 LAYER=2, (NLAYER-1) 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD (INCRAD, (IPHI-1) , LAYER) 


120 


£200 


oS 
1000 


1200 


975 
SNe 
END 


T3 TOLD (INGRAD, (1PHI+1) , LAYER) 

T4 TOLD ( (INCRAD-1), IPHI, LAYER) 

CALL BCRMO1 (AA(LAYER), BB(LAYER) ,CC (LAYER) ,DD (LAYER) ) 
CONTINUE 


it 


xxx*%*%*%*%* OUTER RADIUS, MID-PHIS, TOP LAYER *******# 
LAYER = NLAYER 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD(INCRAD, (IPHI-1), LAYER) 
T3 = TOLD(INCRAD, (IPHI+1) , LAYER) 
T4 = TOLD((INCRAD-1), IPHI, LAYER) 
CALL BCREO1 (AA(LAYER) , BB(LAYER) ,CC (LAYER) , DD (LAYER) ) 


eo COMPUTE SNODE TEMPERATURES 94> "=> 
CALL TRIDAG (1, NLAYER, AA, BB, CC, DD, TEMP) 
DO 875 LAYER=1,NLAYER 
TSTAR (INCRAD, IPHI, LAYER) = TEMP (LAYER) 
CONTINUE 
CONTINUE 


*x*%*%**** OUTER SURFACE, LAST PHI ******** 
IPHI = NPHI 


****k**** OUTER RADIUS, LAST PHI, BOTTOM LAYER ******x* 
LAYER = 1 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD (INCRAD, (IPHI-1) , LAYER) 
T3 = TOLD (INCRAD, 1, LAYER) 
T4 = TOLD ((INCRAD-1), IPHI, LAYER) 
CALL BCREO1 (AA(LAYER) , BB(LAYER) ,CC (LAYER) , DD (LAYER) ) 


xxx ***** OUTER RADIUS, LAST PHI, MID-LAYERS ******** 
DO 1200 LAYER=2, (NLAYER-1) 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD(INCRAD, (IPHI-1), LAYER) 
T3 = TOLD (INCRAD, 1, LAYER) 
T4 = TOLD((INCRAD-1), IPHI, LAYER) 
CALL BCRMO1 (AA(LAYER),BB(LAYER) ,CC(LAYER) ,DD (LAYER) ) 
CONTINUE 


xxxxxxx* OUTER RADIUS, LAST PHI, TOP LAYER ********* 
LAYER = NLAYER 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TOLD (INCRAD, (IPHI-1), LAYER) 
T3 = TOLD(INCRAD, 1, LAYER) 
T4 = TOLD ((INCRAD-1), IPHI, LAYER) 
CALL BCREO] (AA(LAYER),BB(LAYER) ,CC (LAYER) , DD (LAYER) ) 


**** COMPUTE NODE TEMPERATURES **** 
CALL TRIDAG (1,NLAYER, AA, BB, CC, DD, TEMP) 
DO 975 LAYER=1,NLAYER 
TSTAR(INCRAD, IPHI, LAYER) = TEMP (LAYER) 
CONTINUE 
RETURN 
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STEP2 FORTRAN A - (REV. 10/18/88) 

KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK EKEKKK KKK K 

* STEP2 - SECOND INTERMEDIATE STEP (PHI DIRECTION) * 

* OF BRIAN'S METHOD OF FINITE DIFFERENCE * 

* ANALYSIS FOR A RIGHT CIRCULAR CYLINDER. * 
RRR K KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK K KKK KEKE KK 
PROGRAM LINE 614 

SUBROUTINE STEP2 (TOLD, TSTAR, T2STAR) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON /ARRSIZ/ III,JJJ, KKK 

COMMON /CONDUC/ DKR, DKP, DKZ 

COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON /MATSIZ/ NODES, NPHI,NLAYER 

COMMON /NPOSIT/ INCRAD, IPHI, LAYER 

COMMON /PARAMS/ CSUBP, RHO 

COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON /TEMPS/  T1,T2,713,174,175,26,T/;, Ror lo, 110, LINDE suUK 
DIMENSION TOLD(157 15, 15))-TSTAR (15, 15-15), T25 TAR (5, 15-5) 
DIMENSION AA(15),BB(15),CC(15) ,DD(15) , TEMP (15) 


C111112111121211111111117111102 FIRST LAYER Dee 


LAYER 


& 
: 


100 


150 


= 1 


kkx*k*** FIRST LAYER, INNER RADIUS ******** 

INCRAD = 1 
RAD = RMIN 
DO 100 IPHI=1,NPHI 

Tl = TOLD (INCRAD, IPHI, LAYER) 

T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 

T3 = TSTAR(INCRAD, IPHI, LAYER) 

T4 = TOLD((INCRAD+1) , IPHI, LAYER) 

CALL BCREI2 (AA(IPHI),BB(IPHI),CC(IPHI) ,DD(IPHI) ) 
CONTINUE 


K*** CONVERT TO TRIDIAGONAL BORM: **~ 7% 
BB (1) BB(1) +AA(1) 
AA(1) = 0.D+00 
BB(NPHI) = BB(NPHI)+CC(NPHI) 
CC(NPHI) = 0.D+00 


tt 


x*** COMPUTE NODE TEMPERATURES. == "= 
CALL TRIDAG (1,NPHI,AA,BB,CC,DD, TEMP) 
DO 150 IPHI=1,NPHI 
T2STAR(INCRAD, IPHI, LAYER) = TEMP (IPHI) 
CONTINUE 


xxx xk PIRST LAYER, MID-RADII ******** 


DO 200 INCRAD=2, (NODES-1) 
RAD = RMIN + (INCRAD~-1) *DR 


WIAD 


DO 300 IPHI=1,NPHI 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = TOLD((INCRAD-1) , IPHI, LAYER) 
TS = TOLD((INCRAD+1),IPHI, LAYER) 
CALL BCREM2 (AA(IPHI),BB(IPHI),CC(IPHI),DD(IPHI) ) 
300 CONTINUE 


C 
5 os CONV Ris tOouelnl) LAGONAL HORM] => > = 
BB(1) = BB(1)+AA(1) 
mil) = 0.D+00 
BB(NPHI) = BB(NPHI) +CC (NPHI) 
CC(NPHI) = 0.D+00 
S 
c *ex* COMPUTE NODE TEMPERATURES **** 
CALL TRIDAG (1,NPHI, AA, BB, CC,DD, TEMP) 
Dey 375 IPHI=1,NPHI 
TZ2STAR(INCRAD, IPHI, LAYER) = TEMP (IPHI) 
S75 CONTINUE 
200 CONTINUE 
Cc 
Cc RA eee ee PI RS. LAR OU wham oes = x x> 


INCRAD = NODES 
RAD = RMAX 
DO 400 IPHI=1, NPHI 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = TOLD((INCRAD-1) , IPHI, LAYER) 
CALL BCREO2 (AA(IPHI),BB(IPHI),CC(IPHI) ,DD(IPHI) ) 
400 CONTINUE 


C 
e **x*%* CONVERT TO TRIDIAGONAL FORM **** 
BB(1) = BB(1)+AA(1) 
AA(1) = 0.D+00 
BB(NPHI) = BB(NPHI)+CC(NPHI) 
CetINPHI) = 0.D+00 
C 
c **** COMPUTE NODE TEMPERATURES **** 
CALL TRIDAG (1,NPHI,AA, BB, CC, DD, TEMP) 
DO 475 IPHI=1,NPHI 
T2STAR(INCRAD, IPHI, LAYER) = TEMP (IPHI) 
475 CONTINUE 
EC 


CMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MID-LAYERS MMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 
DO 500 LAYER=2, (NLAYER-1) 


Cc 

C Tee ** Xe MID LAE eo, NNER Rab US as <5 Xe x * 
INCRAD = 1 
RAD = RMIN 


DO 600 IPHI=1,NPHI 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
a3 TSTAR (INCRAD, IPHI, (LAYER-1) ) 
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600 


675 


800 


S25 
700 


900 


T4 TSTAR (INCRAD, IPHI, LAYER) 
TS = TOLD ((INCRAD+1) , IPHI, LAYER) 
CALL BCRMI2 {AA(IPH!I) /BB( EPH) ee (len) 2) (rere) 


CONTINUE 


**** CONVERT TO TRIDIAGONAL FORM **** 
BB(1) = BB(1)+AA(1) 
AA(1) = 0.D+00 
BB(NPHI) = BB(NPHI) +CC (NPHI) 
CC(NPHI) = 0.D+00 


***x* COMPUTE NODE TEMPERATURES **** 
CALL TRIDAG (1,NPHI,AA,BB,CC,DD, TEMP) 
DO 675 IPHI=1,NPHI 
T2STAR(INCRAD, IPHI, LAYER) = TEMP (IPHI) 
CONTINUE 


kk kk KKK MID-LAYERS, MID-RADII ******** 

DO 700 INCRAD=2, (NODES-1) 
RAD=RMIN+ (INCRAD-1) *DR 
DO 800 IPHI=1,NPHI 

Tl = TOLD (INCRAD, IPHI, LAYER) 

T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 

T3 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 

T4 = TSTAR(INCRAD, IPHI, LAYER) 

T5 = TOLD ((INCRAD~1) , IPHI, LAYER) 

T6 = TOLD ( (INCRAD+1), IPHI, LAYER) 

CALL BCRMM2Z (AA(IPHI), BB(IPHI) Ce (1eHt), PP (LPH) 

CONTINUE 


**K* CONVERT TO TREIDIAGONAL. EF Crt. a. 
BB(1) = BB(1)+AA(1) 
AA(1) = 0.D+00 
BB(NPHI) = BB(NPHI) +CC (NPHI) 
CO (NPHI 07a 


**** COMPUTE NODE TEMPERATURES **** 
CALL TRIDAG (1,NPHI,AA,BB,CC,DD, TEMP) 
DO 875 IPHI=1,NPHI 
T2STAR(INCRAD, IPHI, LAYER) = TEMP (IPHI) 
CONTINUE 
CONTINUE 


xxx kK MID-LAYERS, OUTER RADIUS ******** 
INCRAD = NODES 
RAD = RMAX 
DO 900 IPHI=1,NPHI 

Tl = TOLD (INCRAD, IPHI, LAYER) 

T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 

T3 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 

T4 = TSTAR(INCRAD, IPHI, LAYER) 

T5 = TOLD ((INCRAD-1), IPHI, LAYER) 

CALL BCRMO2 (AA(IPHI),BB(IPHI),CC(IPHI) ,DD(IPHI) ) 

CONTINUE 


124 


Us 
500 
Cc 


eo CONVERI VIO TRIDIAGONAL) FORM **~«-~ 


BB(1) = BB(1)+AA(1) 

AA(1) = 0.D+00 

BB(NPHI) = BB(NPHI)+CC(NPHI) 
CC (NPHI) = 0.D+00 


Pee OMe LE eN@ber TEMPERATURES 2: <*~* 
Beil TRIDAG (1, NPHI, AA, BB, €C,DD, TEMP) 
pe 975 IPHI=1,NPHI 
T2STAR(INCRAD, IPHI, LAYER) = TEMP (IPHI) 
CONTINUE 
CONTINUE 


CUUUUUUUUUUUUUUUUUUUUUUUUUUUs TOP LAYER UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU 


LAYER 


Ss 
& 


1000 


©) 


O75 


Z0 0 


= NLAYER 


ao = ee > TOP LAYER seUNNE Re Reb iS eke 
INCRAD = 1 
RAD = RMIN 
DO 1000 IPHI=1,NPHI 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 => TSTAR(INCRAD, IPHI, (LAYER—1))) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = TOLD ( (INCRAD+1) , IPHI, LAYER) 
CREE BCREI2 (An (IPH) eB (IPHd) , CC(IPHI) pb (IPH) } 
CONTINUE 


oe eOGNlVEKTOM©® TRIDIAGONAL FORM **** 


BB(1) = BB(1)+AA(1) 

AA(1) = 0.D+00 

BE{(NPHI) = BB(NPHI) +CC(NPHI) 
Se(NPHI) — 0.D+00 


A COME UTE NODE] LEMP BRATURES **** 


eebL TRIDAG (1, NPH1,AA,BB,CC,DD, TEMP) 

Beel0?5 IPHI=1,NPHI 

TZ2ZSTAR(INCRAD, IPHI, LAYER) = TEMP (IPHTI) 
CONTINUE 


KaeKKKKKK TOP LAYER, MID-RADII kKaeweKxeaeKkeknx 

DO 1100 INCRAD=2, (NODES-1) 
RAD = RMIN + (INCRAD-1)*DR 
DO 1200 IPHI=1,NPHI 

Tl = TOLD (INCRAD, IPHI, LAYER) 

72 = TSTAR(INCRAD, IPHI, (LAYER-1)) 

T3 = TSTAR(INCRAD, IPHI, LAYER) 

T4 = TOLD((INCRAD-1) , IPHI, LAYER) 

T58= TOLD( (INCRAD+1), TeHl, LAYER) 

CALL BCREM2 (AA(IPHI),BB(IPHI),CC(IPHI),DD(IPHI) ) 

CONTINUE 


a= => CONVERT TO TRIDIAGONAL FORM **** 
Bra) pea) 
O2b+00 


BB (1) 
AA (1) 
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1275 
feo 


1300 


TiS 
995 
END 


a FG at GD Tk @ asl > Gt Gh J Ga Sa a Gt ee 


BB(NPHI) = BB(NPHI) tCC (NPHI) 
CC (NPHTI) 0. D+00 


axx* COMPUTE NODE TEMPERATURES] 7a 

CALL TRIDAG (1,NPHi, AA, BB, Ce, Pr uel) 

DO 1275 IPHI=2) Nero 

T2ZSTAR(INCRAD, IPHI, LAYER) = TEMP (IPHTI) 
CONTINUE 

CONTINUE 


ARREEAES TORT EAVER (OU LER Rebs ot 
INCRAD = NODES 
RAD = RMAX 
DO 1300 IPHI=1,NPHI 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = TOLD( (INCRAD-1) , IPHI, LAYER) 
CALL BCREOZ (AA(IPH1),BB(IPHI) ,Cetf2Hd)) D> aELeD 
CONTINUE 


xx** CONVERT TO TRIDIAGONAL] FORM, =~~~ 


BB(1) = BB(1)+AA(1) 

AA(1) = 0.D+00 

BB(NPHI) = BB(NPHI)+CC (NPHI) 
CC(NPHI) = 0.D+00 


**x**x COMPUTE NODE TEMPERATURES **** 
CALL TRIDAG (1,NPHI,AA,BB,CC,DD, TEMP) 
DO 1375 IPHI=1,NPHI 
T2STAR(INCRAD, IPHI, LAYER) = TEMP (IPHI) 
CONTINUE 
RETURN 


SSS SSS SSS SSS SS SSS SSS SS SS S5SS5S555S55555SS5S5500050555000000 05 So obes sae 


STEP3 FORTRAN A - (REV. 10/17/88) 


KKK KK KK KK KK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKKKKKKKKKKK 


* STEP3 - THIRD INTERMEDIATE STEP (RADIAL DIRECTION) * 
. OF BRIAN'S METHOD (LONG FORM) OF FINITE 
x DIFFERENCE ANALYSIS FOR A RIGHT CIRCULAR “ 
~ CYLINDER WITH CONSTANT SURFACE HEAT FLUX - 
= AND SPECIFIED INNER SURFACE TEMPERATURE. i 
FOI OK IOI OI I IIIT RR IK KO kkk 


PROGRAM LINE 870 

SUBROUTINE STEP3 (TOLD, TSTAR, T2STAR, T3STAR) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON /ARRSIZ/ III,JJJ,KKK 

COMMON /CONDUC/ DKR, DKP, DKZ 

COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON /MATSIZ/ NODES, NPHI,NLAYER 

COMMON /NPOSIT/ INCRAD, IPHI, LAYER 
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€ 


COMMON /PARAMS/ CSUBP, RHO 

COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

SoMMONE, TEMES) Suite? Ts 14,715,116, 17, 16, £9,110, TINE, TSUR 
ECMENSION TOLD (15e15,15) -1STAR (15, 15,15), T2STAR(15,15,15) 
DIMENSION T3STAR(15,15,15) 

DIMENSION AA(15),BB(15),CC(15),DD(15) , TEMP (15) 


emer 1112111111111222922121111 BOTTOM LAYER 22122111111111111111111111111 


LAYER 


ce 
c 


€ 


100 


75 


= 1 


xx % kK BOTTOM LAYER, FIRST RAY *******% 
IPHI =1 


xxx BOTTOM LAYER, FIRST RAY, INNER NODE ******** 

INCRAD = 1 

RAD = RMIN 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+2) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, NPHI, LAYER) 
T5 = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
CALL BCREI3 (AA(INCRAD) ,BB(INCRAD) ,CC(INCRAD) , DD (INCRAD) ) 


** kee KKK BOTTOM LAYER, FIRST RAY, MID-NODES 
xk KKK DO 100 INCRAD=2, (NODES-1) 
RAD = RMIN + (INCRAD-1)*DR 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER#+1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, NPHI, LAYER) 
TS = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
CALL BCREM3 (AA(INCRAD),BB(INCRAD) ,CC(INCRAD) ,DD(INCRAD) ) 
CONTINUE 


aoe BOTTOM bAyYER wean) KAY, OuULERe NODE  ****xxx*x** 

RAD = RMAX 

INCRAD = NODES 
Ti = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+}) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, NPHI, LAYER) 
T5 = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
CALL BCREO3 (AA(INCRAD) , BB (INCRAD) , CC (INCRAD) , DD (INCRAD) ) 


[>> COMPUTE NCBE TEMPERATURES *>** 
CEES TRIDAG (1,NODES, AA,BB, CC, DD, TEMP) 
DO 175 INCRAD=1,NODES 
T3STAR (INCRAD, IPHI, LAYER) = TEMP (INCRAD) 
CONTINUE 


a eee nV Gh Min Y Ss <x kee ex 
DO 200 IPHI=2, (NPHI-1) 


PEI 


300 


375 
200 


KAKKEKKK BOTTOM LAYER, (MED SRA To 7 NE OD Eee ee eee 

INCRAD = 1 

RAD = RMIN 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, (IPHI-1), LAYER) 
T5 = T2STAR (INCRAD, (IPHI+1) , LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
CALL BCREI3 (AA(INCRAD),BB(INCRAD) ,CC(INCRAD) , DD (INCRAD) ) 


RRRKRAKK BOTIOM SLAYER, 3MID-RAYS 2. D-NODE Set 
DO 300 INCRAD=2, (NODES-1) 
RAD = RMIN + (INCRAD-1) *DR 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, (IPHI-1) , LAYER) 
T5 = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
CALL BCREM3 (AA(INCRAD) , BB(INCRAD) ,CC (INCRAD) , DD (INCRAD) ) 
CONTINUE : 


xxx *k**k**k BOTTOM LAYER, MID-RAYS, OUTER NODE *******x 

RAD = RMAX 

INCRAD = NODES 
Tl = TOLD(INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, (IPHI-1) , LAYER) 
T5 = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
CALL BCREO3 (AA(INCRAD) , BB(INCRAD) , CC (INCRAD) , DD (INCRAD) ) 


**** COMPUTE NODE TEMPERATURES **** 
CALL TRIDAG (1,NODES, AA, BB, CC, DD, TEMP) 
DO 375 INCRAD=1,NODES 
T3STAR(INCRAD, IPHI, LAYER) = TEMP (INCRAD) 
CONTINUE 
CONTINUE 


KAKKKAKKK BOTTOM LAYER; @ Ao ois eee 1 ne 
IPHI = NPHI 


xxx*x**** BOTTOM LAYER, LAST RAY, INNER NODE *****x*x** 

INCRAD = 1 

RAD = RMIN 
Tl = TOLD(INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, (IPHI-1) , LAYER) 
T5 = T2STAR(INCRAD, 1, LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
CALL BCREI3 (AA(INCRAD),BB(INCRAD) ,CC (INCRAD) , DD (INCRAD) ) 
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‘eS SERRE ENS BOT TLOMeU oh enon eee -NODRS *** xx ex 
DO 400 INCRAD=2, (NODES-1) 
RAD = RMIN + (INCRAD-1) *DR 
Tl = TOLD (INCRAD, IPHI, LAYER) 


12°], TS TAR (INGCRAD, LPHI, (LAYERT!)) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, (IPHI-1) , LAYER) 


T5 = T2STAR(INCRAD, 1, LAYER) 

T6 = T2STAR(INCRAD, IPHI, LAYER) 

CALL BCREM3 (AA(INCRAD),BB(INCRAD) ,CC(INCRAD) ,DD(INCRAD) ) 
400 CONTINUE 


c EAA BOTTOM LAYER Uncen ole NODE = ** xx x * 

RAD = RMAX 

INCRAD = NODES 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, (IPHI-1) , LAYER) 
T5 = T2STAR(INCRAD, 1, LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
CALL BCREO3 (AA(INCRAD) ,BB(INCRAD) ,CC (INCRAD) , DD (INCRAD) ) 


‘©: A 7 * COME Ihe NODE TEMPERATURES = =*** 
CALL TRIDAG (1,NODES, AA, BB,CC,DD, TEMP) 
DO 475 INCRAD=1,NODES 
T3STAR(INCRAD, IPHI, LAYER) = TEMP (INCRAD) 
475 CONTINUE 
Cc 
Seem iT TITITIITIIfIit INTERMEDIATE LAYERS LTITLTIIIIIIIIITIIIIIIIIiIl 
DO 500 LAYER=2, (NLAYER-1) 


e. 
Cc a Ae ANP RM Den esa eno ee oman <= x eR KX 
Ben = 1 
ie; 
cS Meee) INTERMEDIATE GAYERS, Piksieher, FIRST NODE ******** 
INCRAD = 1 
RAD = RMIN 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T4 = TSTAR(INCRAD, IPHI, LAYER) 
TS = T2STAR(INCRAD, NPHI, LAYER) 
T6 = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T7 = T2STAR(INCRAD, IPHI, LAYER) 
CALL BCRMI3 (AA(INCRAD) , BB (INCRAD) ,CC (INCRAD) , DD (INCRAD) ) 
@ 
c Mee ONCE RMED Lal Eee koe Sika MID-NODES ******** 


DO 600 INCRAD=2, (NODES-1) 
RAD = RMIN + (INCRAD-1)*DR 


Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T4 = TSTAR(INCRAD, IPHI, LAYER) 
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600 


800 


pls) T2STAR (INCRAD, NPHI, LAYER) 

T6 T2STAR(INCRAD, (IPHI+1) , LAYER) 

T7 = T2STAR(INCRAD, IPHI, LAYER) 

CALL BCRMM3 (AA(INCRAD) , BB(INCRAD) ,CC (INCRAD) , DD (INCRAD) ) 
CONTINUE 


**kk*k*k*k*k*K INTERMEDIATE LAYERS, FIRST RAY, OUTER NODE ******x*x 
INCRAD = NODES 
RAD = RMAX 

Tl = TOLD(INCRAD, IPHI, LAYER) 

T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 

T3 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 

T4 = TSTAR(INCRAD, IPHI, LAYER) 

TS = T2STAR(INCRAD, NPHI, LAYER) 

T6 = T2STAR(INCRAD, (IPHI+1), LAYER) 

T7 = T2STAR(INCRAD, IPHI, LAYER) 

CALL BCRMO3 (AA(INCRAD) , BB(INCRAD) ,CC (INCRAD) , DD(INCRAD) ) 


**** “COMPUTE NODE “TEMPERATURES > 
CALL TRIDAG (1, NODES, AA, BB, CC,DD, TEMP) 
DO 675 INCRAD=1,NODES 
T3STAR(INCRAD, IPHI, LAYER) = TEMP (INCRAD) 
CONTINUE 


kx**kkkk*x INTERMEDIATE LAYERS, MID-RAYS ******** 
DO 700 IPHI=2, (NPHI-1) 


*k*k*k**k*k* INTERMEDIATE LAYERS, MID-RAYS, INNER NODE ******x* 
INCRAD = 1 
RAD = RMIN 

Tl = TOLD (INCRAD, IPHI, LAYER) 

T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 

T3 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 

T4 = TSTAR(INCRAD, IPHI, LAYER) 

T5 = T2STAR(INCRAD, (IPHI-1) , LAYER) 

T6 = T2STAR(INCRAD, (IPHI+1) , LAYER) 

T7 = T2STAR(INCRAD, IPHI, LAYER) 

CALL BCRMI3 (AA(INCRAD),BB(INCRAD) ,CC(INCRAD) , DD (INCRAD) ) 


kk k*k*kk*k* TNTERMEDIATE LAYERS, MID-RAYS, MID-NODES ******** 
DO 800 INCRAD=2, (NODES-1) 
RAD = RMIN + (INCRAD-1)*DR 
Tl = TOLD(INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T4 = TSTAR(INCRAD, IPHI, LAYER) 
TS = T2STAR(INCRAD, (IPHI-1) , LAYER) 
T6 = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T7 = T2STAR(INCRAD, IPHI, LAYER) 
CALL BCRMM3 (AA(INCRAD),BB(INCRAD) ,CC (INCRAD) ,DD(INCRAD) ) 
CONTINUE 


xkkkx*** INTERMEDIATE LAYERS =e Mib nao mOUREr mere; + * =<. 4 


INCRAD = NODES 
RAD = RMAX 
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875 
700 


900 


Tl = TOLD (INCRAD, IPHI, LAYER) 

T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 

T3 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 

T4 = TSTAR(INCRAD, IPHI, LAYER) 

T5 = T2STAR(INCRAD, (IPHI-1) , LAYER) 

T6 = T2STAR(INCRAD, (IPHI+1) , LAYER) 

T7 = T2STAR(INCRAD, IPHI, LAYER) 

CALL BCRMO3 (AA(INCRAD) , BB(INCRAD) , CC (INCRAD) , DD (INCRAD) ) 


~*** COMPUTE NODE, TEMPERATURES **** 
GALL TRIDAG (1,NODES, AA, BB, CC, DD, TEMP) 
DO 875 INCRAD=1,NODES 
T3STAR(INCRAD, IPHI, LAYER) = TEMP (INCRAD) 
CONTINUE 
CONTINUE 


xx*xx%*%** INTERMEDIATE LAYERS, LAST RAY ******** 
IPHI = NPHI 


xk kk kK INTERMEDIATE LAYERS, LAST RAY, INNER NODE ******** 
INCRAD = 1 
RAD = RMIN 

Tl = TOLD (INCRAD, IPHI, LAYER) 

T2 = TSTAR(INCRAD, IPHI, (LAYER?+1) ) 

T3 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 

T4 = TSTAR(INCRAD, IPHI, LAYER) 

TS = T2STAR(INCRAD, (IPHI-1) , LAYER) 

T6 = T2STAR(INCRAD, 1, LAYER) 

T7 = T2STAR(INCRAD, IPHI, LAYER) 

CALL BCRMI3 (AA(INCRAD) ,BB(INCRAD) ,CC(INCRAD) , DD (INCRAD) ) 


aes INTERMED DATE Uae hope no le Ree ID-NODES ********x 
DO 900 INCRAD=2, (NODES-1) 
RAD = RMIN + (INCRAD-1) *DR 
skaih TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T4 = TSTAR(INCRAD, IPHI, LAYER) 
T5 = T2STAR(INCRAD, (IPHI-1) , LAYER) 
T6 = T2STAR(INCRAD, 1, LAYER) 
T7 = T2STAR(INCRAD, IPHI, LAYER) 
CALL BCRMM3 (AA(INCRAD) , BB(INCRAD) ,CC(INCRAD) ,DD (INCRAD) ) 
CONTINUE 


oe INTERMEDIATE LAYERS, DAST RAY, OUTER NODE ******** 
INCRAD = NODES 
RAD = RMAX 

Tl = TOLD (INCRAD, IPHI, LAYER) 


T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T4 = TSTAR(INCRAD, IPHI, LAYER) 

T5 = T2STAR(INCRAD, (IPHI-1) , LAYER) 


T6 = T2STAR(INCRAD, 1, LAYER) 
T7 = T2STAR(INCRAD, IPHI, LAYER) 
CALL BCRMO3 (AA(INCRAD) ,BB(INCRAD) ,CC(INCRAD) , DD (INCRAD) ) 


13] 


G **** COMPUTE NODE TEMPERATURES **** 
CALL TRIDAG (1,NODES, AA, BB, CC,DD, TEMP) 
DO 975 INCRAD=1,NODES 
T3STAR(INCRAD, IPHI, LAYER) = TEMP (INCRAD) 
975 CONTINUE 
500 CONTINUE 
c 
CTTTTTTTTTTTTTITTITTTTTTTTITTTTIT TOP LAYER TITTTTITTITITITITTITI IT TI 7) eee 
LAYER = NLAYER 


C 
& KKXKKKKK:K TOP LAYER, FIRST RAY KKKKKKKX 
IPHI- = 2 
C 
‘fe kkk xk TOP LAYER, FIRST RAY, INNER NODE ****xx*xx 
INCRAD = 1 
RAD = RMIN 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, NPHI, LAYER) 
TS = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
CALL BCREI3 (AA(INCRAD) , BB(INCRAD) ,CC(INCRAD) , DD(INCRAD) ) 
@ 
C kkk kk TOP LAYER, FIRST RAY, MID-NODES ****x*x* 


DO 1000 INCRAD=2, (NODES-1) 
RAD = RMIN + (INCRAD-1)*DR 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD,NPHI, LAYER) 
TS = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
CALL BCREM3 (AA(INCRAD) ,BB(INCRAD) ,CC(INCRAD) , DD(INCRAD) ) 
1000 CONTINUE 


Cc 
é kkxkk*k** TOP LAYER, FIRST RAY, OUTER NODE ******** 
INCRAD = NODES 
RAD = RMAX 
T1 = TOLD (INCRAD, Ichi Laver) 
T2 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD,NPHI, LAYER) 
T5 = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
CALL BCREO3 (AA(INCRAD) , BB(INCRAD) ,CC(INCRAD) , DD (INCRAD) ) 
Cc 
e **x**x COMPUTE NODE TEMPERATURES **** 
CALL TRIDAG (1,NODES,AA,BB,CC,DD, TEMP) 
DO 1075 INCRAD=1, NODES 
T3STAR(INCRAD, IPHI,LAYER) = TEMP (INCRAD) 
1075 CONTINUE 
C 
C KKKKKKKK TOP LAYER, MID-RAYS aKKKKKKK 
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1200 


ea 5 
LOO 


porlTg0 IPHI=2, (NPHI-1) 


kkk keke TOP LAYER, MID-RAYS, INNER NODE ******** 
INCRAD = 1 
RAD = RMIN 
Tl = TOLD(INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, (IPHI-1) , LAYER) 
T5 = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
CALL BCREI3 (AA(INCRAD) , BB(INCRAD) , CC (INCRAD) , DD (INCRAD) ) 


kkk k**k** TOP LAYER, MID-RAYS, MID-NODES ******«** 

DO 1200 INCRAD=2, (NODES-1) 
RAD = RMIN + (INCRAD-1)*DR 

Tl = TOLD(INCRAD, IPHI, LAYER) 

T2 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 

T3 = TSTAR(INCRAD, IPHI, LAYER) 

T4 = T2STAR(INCRAD, (IPHI-1) , LAYER) 

T5 = T2STAR(INCRAD, (IPHI+1) , LAYER) 

T6 = T2STAR(INCRAD, IPHI, LAYER) 

CALL BCREM3 (AA(INCRAD),BB(INCRAD) ,CC (INCRAD) , DD (INCRAD) ) 

CONTINUE 


xkkk*tk** TOP LAYER, MID-RAYS, OUTER NODE *****x*% 
INCRAD = NODES 
RAD = RMAX 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, (IPHI-1) , LAYER) 
T5 = T2STAR(INCRAD, (IPHI+1) , LAYER) 
16s U2cPARVINGRED, TPHl  LAVER) 
CALL BCREO3 (AA(INCRAD),BB(INCRAD) ,CC(INCRAD) , DD(INCRAD) ) 


**** COMPUTE NODE TEMPERATURES **** 
CALL TRIDAG (1,NODES,AA,BB,CC, DD, TEMP) 
DO 1275 INCRAD=1, NODES 
T3STAR(INCRAD, IPHI,LAYER) = TEMP (INCRAD) 
CONTINUE 
CONTINUE 


kk kkk TOP LAYER, LAST RAY **** xx %x 
teal = NEL 


xkx*k*x**k* TOP LAYER, LAST RAY, INNER NODE *****x*** 

INCRAD = 1 
RAD = RMIN 

Tl = TOLD(INCRAD, IPHI, LAYER) 

i2e=—TSTAR(INCRAD, DPHi) (LAYER-1)) 

T3 = TSTAR(INCRAD, IPHI, LAYER) 

T4 = T2STAR(INCRAD, (IPHI~-1) , LAYER) 

Toe ——| T2STAR (INCRAD, 1, LAYER) 

T6 = T2STAR(INCRAD, IPHI, LAYER) 
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1300 


Tao 
998 
END 
C 


CALL BCREI3 (AA(INCRAD),BB(INCRAD) ,CC (INCRAD) ,DD(INCRAD) ) 


xk*x*k*k*KX* TOP LAYER, LAST RAY, MID-NODES ******x% 

DO 1300 INCRAD=2, (NODES-1) 
RAD = RMIN + (INCRAD-1)*DR 

Tl = TOLD(INCRAD, IPHI, LAYER) 

T2 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 

T3 = TSTAR(INCRAD, IPHI, LAYER) 

T4 = T2STAR(INCRAD, (IPHI-1) , LAYER) 

TS = T2STAR(INCRAD, 1, LAYER) 

T6 = T2STAR(INCRAD, IPHI, LAYER) 

CALL BCREM3 (AA(INCRAD),BB(INCRAD) ,CC (INCRAD) ,DD(INCRAD) ) 

CONTINUE 


*kk*kkkkK* TOP LAYER, LAST RAY, OUTER NODE ******ex 
INCRAD = NODES 
RAD = RMAX 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, (IPHI-1) , LAYER) 
TS = T2STAR(INCRAD, 1, LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
CALL BCREO3 (AA(INCRAD) , BB(INCRAD) ,CC(INCRAD) , DD (INCRAD) ) 


**x%** COMPUTE NODE TEMPERATURES **** 
CALL TRIDAG (1,NODES, AA, BB,CC,DD, TEMP) 
DO 1375 INCRAD=1,NODES 
T3STAR(INCRAD, IPHI, LAYER) = TEMP (INCRAD) 
CONTINUE 
RETURN 


OEE Ere trrrisyere me eiciere re msrelsrmrlsrsepor) sersyelsyeyclsjeysyeyseyeys) 6 Sys sis Srey Ses Sysers SS) So 5 
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STEP4 FORTRAN A - (REV. 10/25/88) 


KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKAKKEEEK SE 


* STEP 4 - FOURTH INTERMEDIATE SIBP (TEMPERATURE SAD 


ts N+l TIME STEP) FOR BRAIN'S METHOD OF > 
us FINITE DIFFERENCE ANALYSIS FOR A RIGHT 
i CIRCULAR CYLINDER WITH CONSTANT SURFACE “ 
~ HEAT FLUX AND SPECIFIED INNER SURFACE x 
* TEMPERATURE. = 
Sec e ec eee cee ee eC CSS CSC SCS SCC CCS SC SSCS SSS Se Se oe So 


PROGRAM LINE 1310 

SUBROUTINE STEP4 (TOLD, TSTAR, T2STAR, T3STAR, TNEW) 
IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON /ARRSIZ/ III,JJJ,KKK 

COMMON /CONDUC/ DKR, DKP, DKZ 

COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON /MATSIZ/ NODES,NPHI,NLAYER 

COMMON /NPOSIT/ INCRAD, IPHI, LAYER 

COMMON /PARAMS/ CSUBP, RHO 
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C 


COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

SOMMON (TEMPS, iy teris, 14,175,760, 1779o, 19; T10, TINE, TSUR 
DAMP NS LON] TOLD (lomo, 15) .rSotan(15,15,15) T72STAR(15,15,15)} 
DOEOMENSION T3STAR(15, 15,15), TNEW(15, 15, 15) 


CBBBBBBBBBBBBBBBBBBBBBBBBBBBB BOTTOM LAYER BBBBBBBBBBBBBBBBBBBBBBBBBBBBB 


e 
@ 


C 


LAYER = 1 

eo. | OMA Y ER eeLNNE Ren Doe ~~ 
INCRAD = 1 
RAD = RMIN 


eee ~*~ BOTTOM LAYER; INNER RADIUS, FIRST PHI ********x 


100 
C 
C 


IPHI = l 


Tl = TOLD (INCRAD, IPHI, LAYER) 


T2 = TSTAR(INCRAD, IPHI, (LAYER#1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, NPHI, LAYER) 


TS = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 

T7 = T3STAR((INCRAD+1),IPHI, LAYER) 
T8 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCREI4 (TEMP) 

TNEW(INCRAD, IPHI,LAYER) = TEMP 


xxx***x** BOTTOM LAYER, INNER RADIUS, MID-PHIS ****x*x*xx 
DO 100 IPHI=2, (NPHI-1) 


CONTINUE 


Tl = TOLD (INCRAD, IPHI, LAYER) 

T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 

T4 = T2STAR(INCRAD, (IPHI-1) , LAYER) 
T5 = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 

T7 = T3STAR( (INCRAD+1), IPHI, LAYER) 
T8 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCREI4 (TEMP) 

TNEW (INCRAD, IPHI, LAYER) = TEMP 


xx*xx*** BOTTOM LAYER, INNER RADIUS, LAST PHI *******# 
IPHI = NPHI 


Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 


T3 = TSTAR(INCRAD, IPHI, LAYER) 

T4 = T2STAR(INCRAD, (IPHI-1), LAYER) 
Toe= T2STAR( INCRADMIO LAYER) 

T6 = T2STAR(INCRAD, IPHI, LAYER) 


T7 = T3STAR( (INCRAD+1) , IPHI, LAYER) 
T8 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCREI4 (TEMP) 

TNEW (INCRAD, IPHI, LAYER) = TEMP 


xxx *k*** BOTTOM LAYER, MID-RADII ******** 


DO 200 INCRAD=2, (NODES-1) 
RAD = RMIN + (INCRAD-1) *DR 
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EC xxx x*xxx* BOTTOM LAYER, MID-RADII, FIRST PHI ******** 
sue = 
Tl = TOLD (INCRAD, IPHI, LAYER) 


T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 

T4 = T2STAR(INCRAD, NPHI, LAYER) 

T5 = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 


T7 = T3STAR((INCRAD-1), IPHI, LAYER) 
T8 = T3STAR( (INCRAD+1), IPHI, LAYER) 
T9 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCREM4 (TEMP) 

TNEW (INCRAD, IPHI, LAYER) = TEMP 


© 
C xx*x*%**%*% BOTTOM LAYER, MID RADII, MID-PHIS ******** 
DO 300 IPHI=2, (NPHI-1) 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 

T4 = T2STAR(INCRAD, (IPHI-1) , LAYER) 
TS = T2STAR(INCRAD, (IPHI+1), LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
T7 = T3STAR((INCRAD-1), IPHI, LAYER) 
T8 = T3STAR((INCRAD+1) , IPHI, LAYER) 
T9 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCREM4 (TEMP) 
TNEW (INCRAD, IPHI, LAYER) = TEMP 

300 CONTINUE 

© 

E *x***x%** BOTTOM LAYER, MID RADII, LAST PHI ******** 

IPHI = NPHI 

Tl = TOLD(INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, (IPHI-1), LAYER) 
TS = T2STAR(INCRAD, 1, LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
T7 = T3STAR((INCRAD-1) , IPHI, LAYER) 
T8 = T3STAR((INCRAD+1) , IPHI, LAYER) 
T9 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCREM4 (TEMP) 
TNEW (INCRAD, IPHI, LAYER) = TEMP 

200 CONTINUE 

C 

€ **** OUTER RADIUS **** 

INCRAD = NODES 

RAD = RMAX 

G 

€ xk**+*%% BOTTOM LAYER, OUTER sRAD Mie mein ote emmese se <n te 


IPHI = l 
Tl = TOLD (INCRAD, IPHI, LAYER) 


T2 = TSTAR(INCRAD, IPHI, (LAYER#+1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, NPHI, LAYER) 


136 


TS = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 

T7 = T3STAR((INCRAD-1), IPHI, LAYER) 
T8 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCREO4 (TEMP) 

TNEW (INCRAD, IPHI, LAYER) = TEMP 


€ xk kk kK FIRST LAYER, OUTER RADIUS, MID-PHIS ******** 
DO 400 IPHI=2, (NPHI-1) 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, (IPHI-1) , LAYER) 
T5 = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
T7 = T3STAR((INCRAD-1) , IPHI, LAYER) 
T8 = T3STAR(INCRAD, IPHI, LAYER) 


eee BCREO4 (TEMP) 


TNEW(INCRAD, IPHI, LAYER) = TEMP 

400 CONTINUE 

é 

cE xx *x*k**k BOTTOM LAYER, OUTER RADIUS, LAST PHI ******** 


IPHI = NPHI 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, (IPHI-1) , LAYER) 
T5 = T2STAR(INCRAD, 1, LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
T7 = T3STAR((INCRAD-1),IPHI, LAYER) 
T8 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCREO4 (TEMP) 
TNEW (INCRAD, IPHI, LAYER) = TEMP 
C 
CMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MID-LAYERS MMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 
DO 500 LAYER=2, (NLAYER-1) 


Cc 
C x * XX MED -EAYERS,  UNNER@RADIUS *=**x* 
INCRAD = 1 
RAD = RMIN 
Cc 
cS So 1 aE Ro eee eRe Reto tok PHI *axxxx*% 


IPHI = 1 

Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T4 = TSTAR(INCRAD, IPHI, LAYER) 
TS = T2STAR(INCRAD, NPHI, LAYER) 
T6 = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T7 = T2STAR(INCRAD, IPHI, LAYER) 
T8 = T3STAR( (INCRAD+1), IPHI, LAYER) 
T9 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCRMI4 (TEMP) 

TNEW (INCRAD, IPHI, LAYER) = TEMP 
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& AKRKKKKK MID-LAYERS, © ENNE Re Ree See ee ee rile eee 
DO 600 IPHI=27 (Neo) 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPH, (BEAVER?) 
T3 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T4 = TSTAR(INCRAD, IPHI, LAYER) 
T5 = TZSTAR(INCRAD, (IPHI-1) , LAYER) 
T6 = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T7 = T2STAR(INCRAD, IPHI, LAYER) 
T8 = TS3STAR((INCRAD+1) , IPHI, LAYER) 
T9 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCRMI4 (TEMP) 
TNEW (INCRAD, IPHI, LAYER) = TEMP 
600 CONTINUE 
'S; 
C AAKKEKKX MID-LAYERS, INNER RADIUS ono te le 
IPHI = NPHI 
Tl = TOLD (INCRAD, IPHI, LAYER) 


T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 

T3 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 

T4 = TSTAR(INCRAD, IPHI, LAYER) 

TS = T2STAR(INCRAD, (IPHI-1), LAYER) 
T6 = T2STAR(INCRAD, 1, LAYER) 


T7 = T2STAR(INCRAD, IPHI, LAYER) 

T8 = T3STAR((INCRAD+1) , IPHI, LAYER) 
T9 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCRMI4 (TEMP) 


TNEW (INCRAD, IPHI, LAYER) = TEMP 
Cc 
6 x kk KR MID-LAYERS, MID-RADII ******** 
DO 700 INCRAD=2, (NODES-1) 
RAD = RMIN + (INCRAD-1)*DR 
c 
Ee kkk kK MID-LAYERS, MID-RADII, FIRST PHI ******x*x 
IPHI = 1 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T4 = TSTAR(INCRAD, IPHI, LAYER) 
T5 = T2STAR(INCRAD,NPHI, LAYER) 
T6 = T2STAR(INCRAD, (IPHI+1), LAYER) 
T7 = T2STAR(INCRAD, IPHI, LAYER) 
T8 = T3STAR((INCRAD-1), IPHI, LAYER) 
T9 = T3STAR((INCRAD+1) , IPHI, LAYER) 
T10 = T3STAR(INCRAD, IPHI,DAYeR) 
CALL BCRMM4 (TEMP) 
TNEW (INCRAD, IPHI, LAYER) = TEMP 
@ 
C xk kkk MID-LAYERS, MID-RADII, MID-PHIS ******** 


DO 800 IPHI=2, (NPHI-1) 
Tl = TOLD (INGCRAD IPH), baer) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
fee! TSTAR (INCRAD, IPHI, (LAYER-1) ) 
T4 TSTAR (INCRAD, IPHI, LAYER) 
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T5)=  T2ZSTAR(IUNCRAD, (LENT —1) 7 GAYER) 
T6 = T2STAR(INCRAD, (IPHI+1), LAYER) 
T7 = T2STAR(INCRAD, IPHI, LAYER) 

T8 = T3STAR( (INCRAD-1) , IPHI, LAYER) 
T9 = T3STAR( (INCRADt+1), IPHI, LAYER) 
T10 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCRMM4 (TEMP) 


TNEW (INCRAD, IPHI, LAYER) = TEMP 
800 CONTINUE 
c 
Ee kkk kK MID-LAYERS, MID-RADII, LAST PHI ******** 
IPHI = NPHI 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER#+1) ) 
T3 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T4 = TSTAR(INCRAD, IPHI, LAYER) 
T5 = T2STAR(INCRAD, (IPHI-1) , LAYER) 
T6 = T2STAR(INCRAD, 1, LAYER) 
T7 = T2STAR(INCRAD, IPHI, LAYER) 
T8 = T3STAR((INCRAD-1), IPHI, LAYER) 
T9 = T3STAR((INCRAD+1) , IPHI, LAYER) 
T10 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCRMM4 (TEMP) 
TNEW (INCRAD, IPHI, LAYER) = TEMP 
700 CONTINUE 
Cc 
C **%** MID-LAYERS, OUTER RADII **** 
INCRAD = NODES 
RAD = RMAX 
@ 
e xk **k**K** MID-LAYERS, OUTER RADII, FIRST PHI ******** 
IPHI = 1 
Tl = TOLD(INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T4 = TSTAR(INCRAD, IPHI, LAYER) 
T5 = T2STAR(INCRAD, NPHI, LAYER) 
T6 = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T7 = T2STAR(INCRAD, IPHI, LAYER) 
T8 = T3STAR((INCRAD-1), IPHI, LAYER) 
T9 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCRMO4 (TEMP) 
TNEW (INCRAD, IPHI, LAYER) = TEMP 
C 
ce xx *kx* MID-LAYERS, OUTER RADII, MID-PHIS ******** 


DO 900 IPHI=2, (NPHI-1) 


Tl = TOLD (INCRAD, IPHI, LAYER) 

T2 = TSTAR(INCRAD, IPHI, (LAYER#+1) ) 

T3 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 

T4 = TSTAR(INCRAD, IPHI, LAYER) 

T5 = T2STAR(INCRAD, (IPHI-1) , LAYER) 
T6 = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T7 = T2STAR(INCRAD, IPHI, LAYER) 

T8 = T3STAR((INCRAD-1) , IPHI, LAYER) 
T9 = T3STAR(INCRAD, IPHI, LAYER) 
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CALL BCRMO4 (TEMP) 


TNEW (INCRAD, IPHI, LAYER) = TEMP 
900 CONTINUE 
C 
€ xk x * kK MID-LAYERS, OUTER RADII, LAST PHI ******** 
IPHI = NPHI 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T4 = TSTAR(INCRAD, IPHI, LAYER) 
TS = T2STAR(INCRAD, (IPHI-1) , LAYER) 
T6 = T2STAR(INCRAD, 1, LAYER) 
T7 = T2STAR(INCRAD, IPHI, LAYER) 
T8 = T3STAR((INCRAD-1), IPHI, LAYER) 
T9 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCRMO4 (TEMP) 
TNEW (INCRAD, IPHI, LAYER) = TEMP 
500 CONTINUE 
e 


CTTTTTTTITTITTITITIITITTITTIITIITT TOL GAYeR errr yeaa ee ree 
LAYER = NLAYER 


‘e 
Cc ***k* TOP LAYER, INNER RADIUS **** 
INCRAD = 1 
RAD = RMIN 
C 
c *kkkk*k* TOP LAYER, INNER RADIUS, FIRST PHI******** 
IPHI = l 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, NPHI, LAYER) 
TS = T2STAR(INCRAD, (IPHI+1), LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
T7 = T3STAR((INCRAD+1), IPHI, LAYER) 
T8 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCREI4 (TEMP) 
TNEW (INCRAD, IPHI, LAYER) = TEMP 
G 
c kx*k*k*k*k*k*k TOP LAYER, INNER RADIUS, MID-PHIS ******** 


DO 1000 IPHI=2, (NPHI-1) 

Ti = TOLD (INCRAD  IEH!, carer) 
T2 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 TZSTAR(INCRAD, (IPHI-1) , LAYER) 
TS = T2STAR(INCRAD, (IPHI+1), LAYER) 
T6é = T2STAR(INCRAD, IPHI, LAYER) 
T7 = T3STAR( (INCRAD+1), IPHI, LAYER) 
T8 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCREI4 (TEMP) 


TNEW (INCRAD, IPHI, LAYER) = TEMP 
1000 CONTINUE 
C 
© *xx*x%*k*** TOP LAYER, INNER RADIUS, LAST PHI ******** 


JP. = NERS 
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Tl = TOLD (INCRAD, IPHI, LAYER) 

T2 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 

T4 = T2STAR(INCRAD, (IPHI-1), LAYER) 
TS = T2STAR(INCRAD, 1, LAYER) 

T6 = T2STAR(INCRAD, IPHI, LAYER) 

T7 = T3STAR((INCRAD+1) , IPHI, LAYER) 
T8 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCREI4 (TEMP) 


TNEW (INCRAD, IPHI, LAYER) = TEMP 
CG 
(e x*k*xx* TOP LAYER, MID RADII **** 
DO 1100 INCRAD=2, (NODES-1) 
RAD = RMIN + (INCRAD-1)*DR 
EC 
Cc kkkkkk** TOP LAYER, MID-RADII, FIRST PHI ******x** 
IPHI = 1 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, NPHI, LAYER) 
T5 = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
T7 = T3STAR((INCRAD-1) , IPHI, LAYER) 
T8 = T3STAR((INCRAD+1), IPHI, LAYER) 
T9 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCREM4 (TEMP) 
TNEW(INCRAD, IPHI, LAYER) = TEMP 
c 
e *x*xxkk*k*k* TOP LAYER, MID RADII, MID-PHIS ******x* 
DO 1200 IPHI=2, (NPHI-1) 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, (IPHI-1) , LAYER) 
TS = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
T7 = T3STAR((INCRAD-1) , IPHI, LAYER) 
T8 = T3STAR((INCRAD+1), IPHI, LAYER) 
T9 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCREM4 (TEMP) 
TNEW (INCRAD, IPHI, LAYER) = TEMP 
1200 CONTINUE 
€ 
@ *xk*xk*k*k* TOP LAYER, MID RADII, LAST PHI *****x*«* 


IPHI = NPHI 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER~1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, (IPHI-1), LAYER) 
TS5)= T2STAR(INCRAD I LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
T7 = T3STAR((INCRAD-1),IPHI, LAYER) 
T8 = T3STAR((INCRAD+1), IPHI, LAYER) 
T9 = T3STAR(INCRAD, IPHI, LAYER) 
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CALL BCREM4 (TEMP) 


TNEW (INCRAD, IPHI, LAYER) = TEMP 
1100 CONTINUE 
C 
C **x** TOP LAYER, OUTER RADIUS **** 
INCRAD = NODES 
RAD = RMAX 
Ec 
C kkk kkk TOP LAYER, OUTER RADIUS, FIRST PHI ******x* 
IPHI = 1 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, NPHI, LAYER) 
T5 = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
T7? = T3STAR((INCRAD-1), IPHI, LAYER) 
T8 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCREO4 (TEMP) 
TNEW (INCRAD, IPHI, LAYER) = TEMP 
C 
6 * kkk ke Ke TOP LAYER, OUTER RADIUS, MID-PHIS *****x*** 
DO 1300 IPHI=2, (NPHI-1) 
Tl = TOLD(INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER-1)) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, (IPHI-1) , LAYER) 
T5 = T2STAR(INCRAD, (IPHI+1) , LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
T7 = T3STAR((INCRAD-1),IPHI, LAYER) 
T8 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCREO4 (TEMP) 
1300 CONTINUE 
c 
e *kk*k*x**k* TOP LAYER, OUTER RADIUS, LAST PHI ******** 


IPHI = NPHI 
Tl = TOLD (INCRAD, IPHI, LAYER) 
T2 = TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T3 = TSTAR(INCRAD, IPHI, LAYER) 
T4 = T2STAR(INCRAD, (IPHI-1) , LAYER) 
T5 = T2STAR(INCRAD, 1, LAYER) 
T6 = T2STAR(INCRAD, IPHI, LAYER) 
T7 = T3STAR((INCRAD-1),IPHI, LAYER) 
T8 = T3STAR(INCRAD, IPHI, LAYER) 
CALL BCREO4 (TEMP) 


TNEW (INCRAD, IPHI, LAYER) = TEMP 
998 RETURN 
END 
G 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
@ 
C BCREI1 FORTRAN A - (REV. 11/16/88) 
Cc KKK KKK KKK KK KKK KK KK KKK KK KKK KKK KKK KK KKK KKK KKK KKKKK KKK KEK KKK KKEKKKKKKEK 
C * BCREI1 - THIS SUBROUTINE COMPUTES THE COEFFECIENTS FOR NODES AT* 
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O1S OU OMe eerie) 


PI NM 
: 


OO OA AOA a a G-Q 


+ + + 


as DIFFERENCE ANALYSIS. 


KEK KKK KK KEK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KK KEK KKK KK KKK KKK 


PROGRAM LINE 1767 
SUBROUTINE BCREI1 (A,B,C,D) 


IMPLICIT DOUBLE PRECISION (A-H,0-Z) 


COMMON /CONDUC/ DKR,DKP,DKZ 


THE INNER SURFACE OF THE END LAYERS (NORTH, SOUTH) 
OF A RIGHT-CIRCULAR CYLINDER FOR THE FIRST INTERME- 

DIATE STEP IN Z DIRECTION OF A 3-D POLAR-CYLINDRICAL 
COORDINATE ADAPTATION OF BRIAN'S METHOD OF FINITE 


COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 
COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 


COMMON /HEAT/ 
COMMON /MATSIZ/ NODES,NPHI,NLAYER 
COMMON /NPOSIT/ INCRAD, IPHI, LAYER 
COMMON /PARAMS/ CSUBP, RHO 
COMMON /RADN/ 
COMMON /TEMPS/ 
kk BODY xk*k* 
IF (LAYER.EQ.1) THEN 


ALFA, FO, OPSUBN, QPSUBS, OPSUBI, OPSUBO 


EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
Tie iee ton 4, Popol, lo, 19,110, TINE, TSUR 


Q = QPSUBS 

HE = HSUBS 

EPSE = EPSUBS 

A = 0.D+00 

C = -FO 

ELSEIF (LAYER.EQ.NLAYER) THEN 

Q = QPSUBN 

HE = HSUBN 

EPSE = EPSUBN 

A = -FO 

C = 0.D+00 

ENDIF 

Dl = (DKP*DZ**2) / (2*DKZ*RAD* (RAD+DR/4) *DPHI**2) 

D2 = (DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 
D3 = DZ/DKZ 

D4 = (RAD*DZ**2) / (DKZ* (RAD+DR/ 4) *DR) 

D5 = SIGMA* (T1+TSUR) * (T1**2+TSUR**2) 

B= 1 + FO*(1 + D3* (HE+D5*EPSE) + D4* (HSUBI+D5*EPSUBI) ) 
D = T1 + FO*(D1* (T2+T3-2*T1) + D2* (T4-T1) 


tbo. 4O7RE*TINE+D>*EPSE*TSUR) 
Teo (OP SUB tout LINN +bs*EPSUBI*ITSUR)) 998 


BCREI2 FORTRAN A - (REV. 11/16/88) 


RETURN 


P3955] 91995900550) 0S 555590 DDoS 55099 55559555 09 99S5SSSSSSSSSSSSSSSS 


* 
* 
x 
* 
* 
* 


KEK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KKKKKKKKE 


* BCREI2 - THIS SUBROUTINE COMPUTES THE COEFFECIENTS FOR NODES AT* 


* THE INNER SURFACE OF THE END LAYERS (NORTH, SOUTH) 

ts Or A RIGHT -CiIRCUMARwCYLINDEE HOR 2HE SECOND INTERME- 
ts DIATE STEP (PHI DIRECTION) IN BRIAN'S METHOD OF 

is FINITE DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL 
* COORDINATES. 
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* 


+ 4 4 


Cc KEKE KKK KKK KKK KKK KKK KK KEK KKK KKK KKK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KEK 


@ PROGRAM LINE 1818 
SUBROUTINE BCREI2 (A,B,C,D) 
IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
COMMON /CONDUC/ DKR, DKP, DKZ 
COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 
COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON /MATSIZ/ NODES,NPHI,NLAYER 
COMMON /NPOSIT/ INCRAD, IPHI, LAYER 
COMMON /PARAMS/ CSUBP, RHO 
COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON /TEMPS/ Tl1,7T2,73,1T4, 15, 16,27, 0c, tc  lLU, ce oor 


C kkk BODY *** 
IF (LAYER.EQ.1) THEN 
Q = QPSUBS 
HE = HSUBS 


EPSE = EPSUBS 

ELSEIF (LAYER.EQ.NLAYER) THEN 
Q = QPSUBN 

HE = HSUBN 

EPSE = EPSUBN 


ENDIF 
Dl = (DKP*DZ**2) / (2*DKZ*RAD* (RAD+DR/4) *DPHI**2) 

D2 = (DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 
D3 = DZ/DKZ 

D4 = (RAD*DZ**2) / (DKZ* (RAD+DR/4) *DR) 


DS = SIGMA*(TI+TSUR) (10277 UR 2) 

A = -D1*8e 

B= 1 + FO*(2*Dl + D3*(HETDS“EPSE) +. D4~({(HSUBI+D > “Ee pues 
Cr= SPi*Fo 
cS 


D = Tl + FO* ((T2=T3) + D2* (T4-T1) + D3*(@-HE “TINE -© > “Brose ee 


it + D4* (QPSUBI+HSUBI*TINF+D5*EPSUBI*TSUR) ) 

998 RETURN 

END 

C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
C 

a BCREI3 FORTRAN A - (REV. 11/16/88) 

cS KKK KEK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK 
C * BCREI3 - THIS SUBROUTINE COMPUTES THE COEFFECIENTS FOR NODES AT* 
C * THE INNER SURFACE OF THE END LAYERS (NORTH, SOUTH) * 
@! * OF A RIGHT-CIRCULAR CYLINDER FOR THE THIRD INTERME- * 
c * DIATE STEP (Z DIRECTION) IN BRIAN'S METHOD OF * 
@ * FINITE DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL * 
@ * COORDINATES. 2 
Cc KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKKKKKKKK 
e PROGRAM LINE 1865 


SUBROUTINE BCREI3 (A,B,C,D) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON /CONDUC/ DKR, DKP,DKZ 

COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
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S 


1 
Z 
998 
END 


COG Or). °G)- OO) -01-G@ 


COMMON 
COMMON 
COMMON 
COMMON 
COMMON 


ir (LAYER.EO.1) 


/MATSIZ/ 
/NPOSIT/ 
/PARAMS/ 


/RADN/ 
/TEMPS/ 


NODES, NPHI, NLAYER 

INCRAD, 1PH1, LAYER 

CSUBE, RHO 

BP SOUBN EP OUBS, EE SUBI, EPSUBO, SIGMA 

Dive owes Tooele, 06, 19, 110, TINE, TSUR 
**k* BODY *** 

THEN 


Q = QPSUBS 
HE = HSUBS 
EPSE = EPSUBS 
ELSEIF (LAYER.EQ.NLAYER) THEN 
Q = QPSUBN 
HE = HSUBN 
EPSE = EPSUBN 
ENDIF 
Dl = DKP*DZ**2/ (2*DKZ*RAD* (RAD+DR/4) *DPH1I**2) 
D2 = DKR* (RAD+DR/2) *DZ**2/ (DKZ* (RAD+DR/4) *DR**2) 
D3 = D2/DK2Z 
D4 = (RAD*DZ**2) / (DKZ* (RAD+DR/4) *DR) 
D5 = SIGMA* (T1+TSUR) * (T1**2+TSUR**2) 
Pea) 0 .D+00 
B= 1 + FO*(D2 + D3* (HE+D5*EPSE) + D4* (HSUBI+D5*EPSUBLI) ) 
C = -D2*FO 
D = T1 + FO*((T2-T3) + D1* (T4+T5-2*T6) 

+ D3*(Q + HE*TINE + D5*EPSE*TSUR) 

+ D4* (QPSUBI + HSUBI*TINF + D5*EPSUBI*TSUR) ) 
RETURN 


BCREI4 FORTRAN A - 
KKK KKK KKK KK KKK KKK KKK KK KK KKK KKK KKK KK KKK KKK KKK KKKKKKKKKEK KKK KKK K KE 
- THIS SUBROUTINE COMPUTES THE NODAL TEMPERATURES AT 
THE INNER SURFACE OF THE END LAYERS 
OF A RIGHT-CIRCULAR CYLINDER USING BRIAN'S METHOD OF 
FINITE DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL 


* BCRET4 


* 
* 
* 
* 


KKEKKKKK KKK KKK KKK KKK KEK KKK KKK KKK KKK KEKE KK KKK KK KKK KKKKKEKKEKAKAK KKK KKK 


R55 59990 9959959599950 5 95 FO DDD DS OD OOOO 59 ON OD OOS OOS SSSSSSSSSSSSS5$ 


(REV. 11/16/88) 


(NORTH, 


COORDINATES. 


PROGRAM LINE 1978 


SUBROUTINE BCREI4 
IMPLICIT DOUBLE 
/ CONDUC / 
/CONVEC/ 
/GEOMET / 


COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 


tae LAYER. EQ. 1) 


/HEAT/ 


/MATSI2Z/ 
/NPOSIT/ 
/PARAMS/ 


/RADN/ 
/TEMPS/ 


QO = QOPSUBS 


(TNEW) 

PRECISION (A-H,0O-Z) 

DKR, DKP, DKZ 

HSUBN, HSUBS, HSUBI, HSUBO 

DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, Z2MAX, LPHI 

ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

NODES, NPHI, NLAYER 

INCRAD, IPHI, LAYER 

CSUBP, RHO 

EP SUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

Tl 72,13) 04755) 06.07 -Te-19- 010, TINE, TSUR 
ker BODY xk 

THEN 
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SOUTH) 


c 
998 
END 


© es ER 5 Bs YE BR @ Yael AL laa BD 


HE = HSUBS 

EPSE = EPSUBS 

ELSEIF (LAYER.EQ.NLAYER) THEN 

Q = OPSUBN 

HE = HSUBN 

EPSE = EPSUBN 

ENDIF 

Dl = (DKP*DZ**2) / (2*DKZ*RAD* (RAD+DR/ 4) *DPHI**2) 

D2 = (DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/ 4) *DR**2) 


DS =9DZ/ DZ 
D4 = (RAD*DZ**2) / (DKZ* (RAD+DR/ 4) *DR) 
D5 = SIGMA* (T14+TSUR) * (T1**2+TSUR**2) 


D6 = 1 + 2*FO* (DS* (HE+DS*EPSE) + D4*(HSUBI+DS “EPsUsl 
TNEW = 1/D6* (T14+2*FO* ((T2-T3) + D1* (T4+T5-2*T6) + D2*(T7-T8) 


1+ D3*{O + HE*TINE St Do -EPsE. tour) 
2+ D4* (OPSUBI + HSUBI=TINE + D5-ErPSUSt-1sUR) 


RETURN 


SSS SESS SSS SSS SSS SSS SSS SSS SSS SSS SS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS5 


BCREM1 FORTRAN A - (REV. 11/16/88) 


KKK KK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KKEKKKKKKKKKK 


* BCREM1 = THIS SUBROUTINE COMPUTES THE COBREECIENT Serer 


is NODES AT THE MID-RADI2 OF THE END LAYERS % 
7 (NORTH, SOUTH FACES) “OF A RIGHT=CIRCULAR Cy ou = 
= INDER FOR THE FIRST INTERMEDIATE TIMESTEP * 
= (STAR LEVEL) OF A 3-D, POLAR-CYLINDRICAL = 
is COORDINATE ADAPTATION OF BRIAN'S METHOD OF * 
us FINITE DIFFERENCE ANALYSIS. x 
FO I I II I Ok ke 


PROGRAM LINE 2027 

SUBROUTINE BCREM1 (A,B,C,D) 

IMPLICIT DOUBLE PRECISION (A-H, 0-2) 

COMMON /CONDUC/ DKR, DKP, DKZ 

COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON /HEAT/ ALFA, FO, QPSUBN, OQPSUBS, OQPSUBI, QPSUBO 

COMMON /MATSIZ/ NODES,NPHI,NLAYER 

COMMON /NPOSIT/ INCRAD, IPHI, LAYER 

COMMON /PARAMS/ CSUBP, RHO 

COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON /TEMPS/ 11,72, 73,74,75,-26700> 1 O ko LO Tee oie 
kkx BODY xkkx 

IF (LAYER.EQ.1) THEN 


Q = QOPSUBS 

EPSE = EPSUBS 

HE = HSUBS 

A = 0.D+00 

C -="-FoO 

ELSEIF (LAYER.EQ.NLAYER) THEN 
Q = QPSUBN 
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Cc 
998 
END 
c 


EPSE = EPSUBN 
HE = HSUBN 


A = -FO 
ee— 0 Dtog 
ENDIF 


Pee Dine Zax 2a (27 bKZ*RAD**2*DPHI** 2) 


D2 = (DKR* (RAD-DR/2) *DZ**2) / (2*DKZ* RAD*DR* *2) 
D3 = (DKR* (RAD+DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 
ba = DZ/DKZ 


—59= SIGMA* (T1+TSUR) * (T1**2+TSUR**2) 
Pee) + POMC + D4 (HE + D5*EPSE) } 


Soe ot Onur ieee i) et D2 (ta-T1) + D3*(T5-11) 


abo (O + HE*TINE + DO*EPSE*TSUR) ) 


RETURN 


eS 9555955 OD OO SS OO OS OD OO SOO OD OO SOD OO SO OS OOOO OS OOOO SS SSSSSSSSSS55 


OOOO) OO AO} 


QaAQA 


BCREM2 FORTRAN A - (REV. 11/16/88) 


Kaka KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK 


SeeecreM2 — THiS SUBROUTINE COMPUTES THE COEFFECIENTS FOR NODES AT* 


* THE MID-RADIAL NODES OF THE END LAYERS (NORTH, SOUTH) 
* OF A RIGHT-CIRCULAR CYLINDER FOR THE SECOND INTERMED- * 
* IATE STEP (PHI DIRECTION) IN BRIAN'S METHOD OF * 
* FINITE DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL x 
* COORDINATES. i 

* 


KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK EK 


PROGRAM LINE 2077 

SUBROUTINE BCREM2 (A,B,C,D) 

IMPLICIT DOUBLE PRECISION (A-H, 0-2) 
COMMON /CONDUC/ DKR,DKP,DKZ 

COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 


COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 


COMMON /HEAT/ 
COMMON /MATSIZ/ NODES,NPHI,NLAYER 
COMMON /NPOSIT/ INCRAD, IPHI, LAYER 
COMMON /PARAMS/ CSUBP, RHO 

COMMON /RADN/ 
COMMON /TEMPS/ 


KK * BODY kk 


Gee (LAYER.EOQ.1) THEN 

Q = QPSUBS 

Beoe = BEPSUBS 

Hee = HSOUBS 

ELSEIF (LAYER.EQ.NLAYER) THEN 

Q = QPSUBN 

Besos = EPSUBN 

HE = HSUBN 

ENDIF 

Dl = (DKP*D2Z**2) / (2*DKZ*RAD* *2*DPHI**2) 
D2 = (DKR* (RAD-DR/2) *DZ**2) / (2*DKZ*RAD*DR* *2) 
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EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
T1,7T2,173,74,75, 16,77, 18,79,7T10, TINE, TSUR 


ALEA, FO, Oe SUBN, or sUBo, OF SUBL, OPSUBO 


(DKR* (RAD+DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 
DZ/DKZ 

DS = SIGMA* (T1+TSUR) * (T1**2+TSUR**2) 

A = -D1*FO 

1 + FO*(2*D1 + D4* (HE + DS*EPSBE) ) 

-D1*FO 

= Tl + FO*((T2-T3) + D2* (T4-T1) + D3*(T5-T1) 
+ D4*(Q + HE*TINF + D5*EPSE*TSUR) ) 


0 0 
dm W 
een 


Mm OOM Ww 
il 


998 RETURN 


3 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSe0 oss ara 


BCREM3 FORTRAN A - (REV. 11/16/88) 

KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKKKKKKKKKKKKKEKKK 

* BCREM3 - THIS SUBROUTINE COMPUTES THE COEFFECIENTS FOR NODES AT* 

THE MID-RADIAL NODES OF THE END LAYERS (NORTH, SOUTH) * 

OF A RIGHT-CIRCULAR CYLINDER FOR THE THIRD INTERMED- * 

IATE STEP (Z DIRECTION) IN BRIAN'S METHOD OF x 
* 
* 
* 


+ + + 


FINITE DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL 
* COORDINATES. 

KKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KEK KKK KKK KKK KKK KK KKK 
PROGRAM LINE 2059 

SUBROUTINE BCREM3 (A,B,C,D) 

IMPLICIT DOUBLE PRECISION (A-H,0O-Z) 

COMMON /CONDUC/ DKR, DKP,DKZ 

COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON /HEAT/ ALFA, FO, QPSUBN, OPSUBS, QPSUBI, OQPSUBO 

COMMON /MATSIZ/ NODES, NPHI,NLAYER 

COMMON /NPOSIT/ INCRAD, IPHI, LAYER 

COMMON /PARAMS/ CSUBP, RHO 

COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON /TEMPS/ T1,72,T3,1T4, 15,106,107, 00, top to, fae esuR 


OO Oe OC) "OOO Oe oO 


C 
ec kk BODY kk 
€ 

TE (LAYER. SO.) fan 

O}= OPSUES 

EPSE = EPSUBS 

HE = HSUBS 

ELSEIF (LAYER.EQ.NLAYER) THEN 

Q = QPSUBN 


EPSE = EPSUBN 
HE = HSUBN 


ENDIF 

D1 = (DKP*DZ**2) / (2*DKZ*RAD* *2*DPHI**2) 

D2 = (DKR* (RAD-DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 
D3 = (DKR* (RAD+DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 
D4 = DZ/DKZ 

D5 = SIGMA* (T1+TSUR) * (T1**2+TSUR**2) 

A = -D2*FO 

B= 1 + FO*(D2 + D3 +D4* (HE + D5*EPSE) ) 

C = -D3*FO 

D = Tl + FO*((T2-T3) + D1* (T44+T5-2*T6) 
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ih 
998 RETURN 
END 


C 


Teo aoe ENE + D> ~heoh~15UR) ) 


Be SS OOD OSS SS OOS SS SOS oo SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS5S 


* 
* 
* 
* 


OOOO GOO). © 


COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 


ie (LAYER.EQ.1) 


BCREM4 FORTRAN A - 

Kae KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK 

- THIS SUBROUTINE COMPUTES THE TEMPERATURES OF THE MID- 
RADIAL NODES FOR THE END LAYERS 
OF A RIGHT-CIRCULAR CYLINDER USING BRIAN'S 


* BCREM4 


(REV. 


COORDINATES. 


dd/ 6/88) 


(NORTH, 


SOUTH) 
METHOD OF 


* 
* 
FINITE DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL * 
* 
* 


(TNEW) 


VEONDUG/ 
/CONVEC/ 
/GEOMET/ 
/HEAT/ 

/MATSIZ/ 
/NPOSIT/ 
/PARAMS / 
/RADN/ 

/ TEMPS / 


DKR, DKP, DKZ 


CoOUBE, AHO 


PRECISTON (A-H, 0-2) 


HSUBN, HSUBS, HSUBI, HSUBO 
DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

NODES, NPHI, NLAYER 
INCRAD, IPHI, LAYER 


EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
T1,7T2,73,7T4,7T5, T6,T7,7T8,T9,T10, TINF, TSUR 


kkk BODY kk 


THEN 


Q = QPSUBS 


EPSE = 
HE = 
EbonIF 


EPSUBS 
HSUBS 


(LAYER.EQ.NLAYER) THEN 


Q = QPSUBN 


EPSE = 
HE = 
ENDIF 
Dl = 
D2 = 
D3 
D4 
D5 = 
D6 = 
TNEW = 


oD 3* (T8-T9} 


998 
END 
& 


RETURN 


EPSUBN 
HSUBN 


WD os (rl + 2*FO*((T2=T3) 


(DKP*DZ=*2)7 (2*0K2 RAD <~Z-DPHI**Z) 

(DKR* (RAD-DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 
(DKR* (RAD+DR/2) *DZ**2) / (2*DKZ*RAD*DR* *2) 
DZ/DKZ 
SICMAC I UtiSUR) (it~ *74+7SUR**2) 
tee hO*04= He, + Do“ BPoep 


+ D1* (T4+T5-2*T6) 


fee (Ot HEINE + Dox EPsk=1SUR) } ) 


Kk kK KK KKK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK 


PROGRAM LINE 2106 
SUBROUTINE BCREM4 
IMPLICIT DOUBLE 


+ Deo 2S) 


RS 9 09 9992 OOOO DODD DOS SSS SoS 59955500 55SS559SSSSSSSSSSSSSSSSSSS 


O17°O OO) OG 


* 
* 
* 


BCREO1] FORTRAN A - 
KKKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK EK 
- THIS SUBROUTINE COMPUTES THE COEFFECIENTS FOR NODES AT* 
THE OUTER SURFACE OF THE END LAYERS 


SeCREO] 


(REV. 


Tao 28 } 


(NORTH, 


SOUTH) i 


OF A RIGHT -CTREULAR CY DINPEReHORe tHE FIRST INTERMEDIATE* 


SIbe (2 DIRECT bony 


149 


PN BRIAN S METHOD OF FINITE x 


COLO @ 


998 
END 
C 


* DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL * 
* COORDINATES. * 
KEK KKK KKK KEKE KKK KK KEKE KKK KK KKK KKK KEK KKK KK KKK KKK KKK KKK KKK KKK KKK KKKKKKEK 
PROGRAM LINE 2216 
SUBROUTINE BCREO1 (A,B,C,D) 
IMPLICIT DOUBLE PRECISION (A-H,0O-Z) 
COMMON /CONDUC/ DKR,DKP,DKZ 
COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 
COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON /MATSIZ/ NODES, NPHI,NLAYER 
COMMON /NPOSIT/ INCRAD, IPHI, LAYER 
COMMON /PARAMS/ CSUBP, RHO 
COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON /TEMPS/ T1,7T2,73,7T4,15,216,-17,18,297 2.0) DIN osu 
kkk BODY kx 
IF (LAYER.EQ.1) THEN 


Q = QPSUBS 

EPSE = EPSUBS 

HE = HSUBS 

A =—0. P00 

GC = -'6 

ELSEIF (LAYER.EQ.NLAYER) THEN 
Q = QPSUBN 


EPSE = EPSUBN 
HE = HSUBN 


A = -FO 
C = 0.D+00 

ENDIF 

Dl = (DKP*DZ**2) / (2*DKZ* (RAD-DR/4) *RAD*DPHI**2) 

D2 = (DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/ 4) *DR**2) 
D3 = DZ/DKZ 

D4 = (RAD*DZ**2) / (DKZ* (RAD-DR/4) *DR) 


DS = SIGMA* (11+ 7SUR) > (iis eRe) 
B= 1 + FO*(1 + D3*(HE+tDS*EPSE) + D4* (HSUBO+TDS*EPSUBSG)) 
D-= Tl .+ FO*(DIs (241342757 ee ee) 


i + D3*44Q + HE*TINE =f DS “EPSE mer) 
2 + D4* (OPSUBO + HSUBO* TINE =) DoWEPSUBG~2sUR)) 
RETURN 


CSS SSS SSS SSS SS SSS SSS SSeS SSSSSSSSSSSSSSSSSooS SoS So SoSoSSo SoU SSo Soo sae 


| OO OPO OO 


BCREO2 FORTRAN A - (REV. 11/16/88) 

KEKE KK KEK KEK KEKE KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKKKKKKK KKK 
* BCREO2 - THIS SUBROUTINE COMPUTES THE COEFFECIENTS FOR NODES AT* 
* THE OUTER SURFACE OF THE END LAYERS (NORTH, SOUTH) 


* OF A RIGHT-CIRCULAR CYLINDER FOR THE SECOND INTERMED- * 
* IATE STEP (PHI DIRECTION) IN BRIAN'S METHOD OF * 
* FINITE DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL * 
* COORDINATES. i 
KEKE KEK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KEK KKK KKK KKK KKK KEKEKKKKEKKK 


PROGRAM LINE 2265 
SUBROUTINE. BCREOZ 3(A,7B, C72) 
IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
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998 
END 
C 


COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 


/ CONDUC / 
/CONVEC / 
/GEOMET / 
/HEAT/ 
/MATSIZ/ 
/NPOSIT/ 
/PARAMS / 
/RADN/ 

/ TEMPS / 


ih ({LAYER.EO.1) 


DKR, DKP, DKZ 

HSUBN, HSUBS, HSUBI, HSUBO 

DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

NODES, NPHI, NLAYER 

INCRAD, IPHI, LAYER 

CSUBP, RHO 

EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

T1,T2,T3,T4,7T5,1T6,T7,T8,T9,T10, TINF, TSUR 
xk*k* BODY xkkx 

THEN 


THEN 


(DKP*DZ**2) / (2*DKZ* (RAD-DR/4) *RAD*DPHI**2) 
(DKR* (RADDR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 


(RAD*DZ**2) / (DKZ* (RAD-DR/ 4) *DR) 


ome SLGMA*=(TI+TSUR) *{Tis*z2+7TSuR* *Z) 


©. > OPSUBS 

EPSE = EPSUBS 

HE = HSUBS 

ELSEIF (LAYER.EQ.NLAYER) 
Q = QPSUBN 

EPSE = EPSUBN 

HE = HSUBN 

ENDIF 

Dl = 

D2 = 

DS = DZ/DKZ 

D4 = 

A = -D1*FO 

SS 

C = -D1*FO 

D = T1+FO* ((T2-T3) 
1+ 

RETURN 


y= FOr(2* Diet DS* (HE+D5*EPSE) 


fo D2*(14—-T1) 


DAE SURO St wHoUBeO “TINE + DS*ErPSUBO* TSUR) ) 


Tapa = (HSUBOTtDS“EPSUBO) ) 


pee oo (Oe tenn Linh 4 Do*~EPSE *TSUR) 


on SS S SIRS SSS SRS RSS SEER SL SS SEE SELES ESSERE SEER LE EERE EER ERES 


CHOY OG O77 OO @:@) HO 


BCREO3 FORTRAN A - 


(REV. 11/16/88) 


KKEKKKKKK KKK KKK KK KK KK KKK KKK KKK KKK KKK KKK KKK KEKE KKK KKK KKEKKKKKEKKEKEKKKKEK 


eek hOs — THIS SUBROUTINE COMPUTES THE SCOEPFECIENTS FOR NODES AT* 


+ + + OF 


* 


THE OUTER SURFACE OF THE END LAYERS (NORTH, SOUTH) . 
OF A RIGHT-CIRCULAR GYLINDER PCR THE THIRD INTERMED- xs 
TATE yo CEP 2 DERE CTLON iN BREAN’ S METHOD OF i 
FINITE DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL * 
COORDINATES. eS 


KEK K KKK KK KKK KKK KKK KKK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKEKK KKK 


PROGRAM LINE 2311 


SUBROUTINE BCREO3 


OMELICIT DOUBLE 


COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 


/CONDUC/ 
/CONVEC / 
/GEOMET/ 
/HEAT/ 

/MATSIZ/ 
{NEOSIT/ 
/PARAMS / 
/RADN/ 

/TEMPS/ 


(Ay BC, D) 

PRECISION (A-H,0-Z) 

DKR, DKP, DKZ 

HSUBN, HSUBS, HSUBI, HSUBO 

DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
NODES, NPHI, NLAYER 

INCRAD, IPHI, LAYER 

CSUBP, RHO 

EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
T1,T2,T3,T4,T5,1T6,T7, T8,T9,T10, TINF, TSUR 


151 


Cc kk BODY kkk 

IF (LAYER.EQ.1) THEN 

Q = QPSUBS 

EPSE = EPSUBS 

HE = HSUBS 

ELSEIF (LAYER.EQ.NLAYER) THEN 

Q = QPSUBN 

EPSE = EPSUBN 

HE = HSUBN 

ENDIF 

Dl = (DKP*DZ**2) / (2*DKZ* (RAD-DR/ 4) *RAD*DPHI **2) 
D2 = (DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/ 4) *DR**2) 


+ 


Tls+ FO* ((T2=13) 5 Di4tti4s to. 6) 


D3* (G+ BE TINE + Do-ERePse toc 


D3 = DZ/DKZ 

D4 = (RAD*DZ**2) / (DKZ* (RAD-DR/4) *DR) 

DS = SIGMA* (T1+TSUR) * (T1**2+TSUR**2) 

A = -D2*FO 

B= 1+ FO*(D2 + D3* (HE+D5*EPSE) + D4* (HSUBO+D5*EPSUBO) ) 
C = 0.D+00 

D 

il 

2 


o9c RETURN 
END 


+ D4* (OPSUBO + HSUBO* TINE + D5*EPSUBO*TSUR) ) 


E . 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
e 
C BCREO4 FORTRAN A - (REV. 11/16/88) 
C KKKEKKEKKKEKEKKKKEKEKKKEKKEKEKKKEKKEKEKKEKKEKKEKKEKKKKEKKKKKEKKKKEKKKEKEKEKKKEKKKEKKEKKEKESEK 
‘ * BCREO4 - THIS SUBROUTINE COMPUTES THE NODAL TEMPERATURES AT 
@ * THE OUTER SURFACE OF THE END LAYERS (NORTH, SOUTH) 
C * OF A RIGHT-CIRCULAR CYLINDER USING BRIAN'S METHOD OF 
(e * FINITE DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL 
(eS * COORDINATES. 
(& KKK KKK KKK KK KEK KKK KKK KKK KKK KK KKK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KK KK 
S PROGRAM LINE 2357 

SUBROUTINE BCREO4 (TNEW) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON /CONDUC/ DKR, DKP,DKZ 

COMMON /CONVEC/ HSUBN, KHSUBS, HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, OQPSUBO 

COMMON /MATSIZ/ NODES,NPHI,NLAYER 

COMMON /NPOSIT/ INCRAD, IPHI, LAYER 

COMMON /PARAMS/ CSUBP, RHO 

COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON /TEMPS/ T1,T2,7T3,74,7TS, 16,177 0000 eel ie oR 
'& kkk BODY kk* 


LE (LAYER EO. 1) 
Q = QPSUBS 


THEN 


EP 
HE 


SE = EPSUBS 


HSUBS 


ELSEIF (LAYER.EQ.NLAYER) THEN 
QO = QOPSUBN 


EE 
HE 


SE 


— 
— 


= FPOUBN 
HSUBN 


lo2 


c 
998 


g 


Oaooaooroadago0 0 0Q 


28 
END 
S 


ENDIF 
Dl = (DKP*DZ**2) /(2*DKZ* (RAD-DR/4) *RAD*DPHI**2) 

D2 = (DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

D3 = DZ/DKZ 

D4 = (RAD*DZ**2) / (DKZ* (RAD-DR/4) *DR) 

DS = SIGMA* (T1+TSUR) * (T1**2+TSUR**2) 

D6 = 1 + 2*FO*( D3* (HE+DS*EPSE) + D4* (HSUBO+DS*EPSUBO) ) 


TNEW = 1/D6*(T1 + 2*FO*((T2-T3) + D1*(T4+TS—-2*T6) + D2*(T7-TB) 


it Fobs*(@ ten) INP ee Dose os <1 SUR) 
Z + D4 *(OPSUBCOmaenoUbO-~TINE +—.bD5*EPSUBO*TSUR) ) ) 
RETURN 


BO OOOO OO SOS OS SS SSS SSS SSS SS SS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS55 


BCRMI1 FORTRAN A - (REV. 11/16/88) 


KKK KK KK KK KK KKK KK KKK KK KK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KEKE KKK KEKKEKK KKK 


Zoek hli = THIS SUBROUTINE COMPUTES THE CGEFFECIENTS FOR NODES AT* 


= THE INNER SURFACE OF THE MID-LAYERS (2 THRU NLAYERS-1) * 
m OF A RIGHT -CiReGULARSeGYLINDER FOR THE FIRST INTERMEDIATE* 
z STEP (RADIAL DIRECTION) IN BRIAN'S METHOD OF FINITE as 
= DIFFERENCE, ANALY SiS IN S—-D POLAR-CYLINDRICAL " 
B COORDINATES. x 


KKK KK KK KKK KKK KKK KKK KKK KK KKK KEK KKK KEK KK KEK KKK KEKE KKK KKK KEKE KEKKEEKKKKKEK 


PROGRAM LINE 2404 

SUBROUTINE BCRMI1 (A,B,C,D) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON /CONDUC/ DKR,DKP,DKZ 

COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON /PARAMS/ CSUBP, RHO 

COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

SemMMON /TEMPS/ T1772,73,14,1o,06,717,1T8,1T9,T10, TINF,TSUR 
kk BODY kk 

Dl = (DKP*DZ**2) / (DKZ*RAD* (RAD+DR/4) *DPHI**2) 

D2 (2*DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 

D3 = (2*RAD*DZ**2) / (DKZ* (RAD+DR/4) *DR) 

x*** NO D4 REQUIRED *** 

DS = SIGMA* (T1+TSUR) * (T1**2+TSUR**2) 


Be= =FO/2 

B= 1+ FO/2*(2 + D3*(HSUBI + DS*EPSUBI) ) 

C = -FO/2 

D = Tl + FO/2* (D1* (T2+T3-2*T1) + D2*(T4-T1) 

1 + D3* (QPSUBI + HSUBI*TINF + DS*EPSUBI*TSUR) ) 
RETURN 


F999 995909 90 00 DOOD ODO OOOO OD ODO SSDI ODO OOOO DDO SOO OD OOS SoD9S55SSSs 


2 


c 
c 
c 


BCRMI2 FORTRAN A - (REV. 09/30/88) 


KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KKK 


* BCRMI2 - THIS SUBROUTINE COMPUTES THE COEFFECIENTS FOR NODES AT* 


153 


THE INNER SURFACE OF THE MID-LAYERS (2 THRU NLAYERS-1) * 
OF A RIGHT-CIRCULAR CYLINDER FOR THE SECOND INTERMED 
TATE STEP (PHI DIRECTION) IN BRIAN “Ss ME THODeOr i 
FINITE DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL 3 
* 
* 


+ + + 


* COORDINATES. 

KKK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK 
PROGRAM LINE 2373 

SUBROUTINE BCRMI2 (A,B,C,D) 

IMPLICIT DOUBLE PRECISION (A-H,0-2Z) 

COMMON /CONDUC/ DKR, DKP,DKZ 

COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON /PARAMS/ CSUBP, RHO 

COMMON /RADN/  EPSUBN, EPSUBS, EPSUBI,EPSUBO, SIGMA 
COMMON /TEMPS/ T1,T2,1T3,1T4,T5,T6,1T7,T8,1T9,T10, TINF, TSUR 
Se kkk BODY xk 


Os @ 1 Oe © at @ ie a, 


Dl = (DKP*DZ**2) / (DKZ*RAD* (RAD+DR/4) *DPHI**2) 

D2 = (2*DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 

D3 = (2*RAD*DZ**2) / (DKZ* (RAD+DR/ 4) *DR) 
G xxx NO D4 REQUIRED *** 

DS = SIGMA* (T1+TSUR) * (T1**2+TSUR**2) 

A = -D1*FO/2 

B= 1 + FO/2*(2*D1 + D3* (HSUBI + DS*EPSUBI) ) 

C = -D1*FO/2 

D = T1 + FO/2* ((T2+T3-2*T4) + D2*(T5-T1) 

aL + D3*(QPSUBI + HSUBI*TINF + D5*EPSUBI*TSUR) ) 
998 RETURN 
END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
e 
C BCRMI3 FORTRAN A - (REV. 11/16/88) 
ce KERR KKK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK 
@ * BCRMI3 - THIS SUBROUTINE COMPUTES THE COEFFECIENTS FOR NODES AT* 
2 * THE INNER SURFACE OF THE MID-LAYERS (2 THRU NLAYERS-1) * 
8. * OF A RIGHT-CIRCULAR CYLINDER FOR THE THIRD INTERMED- * 
€ * IATE STEP (Z DIRECTION) IN BRIAN'S METHOD OF * 
Cc * FINITE DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL * 
e * COORDINATES. : 
Cc KKK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK K KK 
@ PROGRAM LINE 2474 


SUBROUTINE BCRMI3 (A,B,C,D) 

IMPLICIT DOUBLE PRECISION (A-H,0O-Z) 

COMMON /CONDUC/ DKR, DKP, DKZ 

COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON /PARAMS/ CSUBP, RHO 

COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON /TEMPS/ T1,T2,73,74,7T5, 16,77, 10 pio oe SoU 
ce xkkx BODY zkkk 


Dl = (DKP*DZ**2) / (DKZ*RAD* (RAD+DR/4) *DPHI**2) 
D2 = (2*DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 
D3 = (2*RAD*DZ**2) / (DKZ* (RAD+DR/ 4) *DR) 
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998 
END 


c 


*** NO D4 REQUIRED *** 
D5 = SIGMA* (T1+TSUR) * (T1**2+TSUR**2) 


A = 0.D+00 

B= 1 + FO/2* (D2 + D3*(HSUBI + D5*EPSUBI) ) 

C = -D2*FO/2 

D = Tl + FO/2* ((T2+T3-2*T4) + D1* (T5+T6-2*T7) 

il + D3*(QPSUBI + HSUBI*TINF + D5*EPSUBI*TSUR) ) 
RETURN 


SS SS BSS SS SS SS SSSI S SSIS IRISISS SSIS }SS IS SSIs oN ersbeeiseepepeisfepepeperepeye poms Iepe reps pepe Rees 


Se © sD Det a A SE @ Ie 


C 


u 
S 


998 
END 


c 


BCRMI4 FORTRAN A - (REV. 11/16/88) 

KKK KK KKK KKK KKK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK EK K KKK KK EK KKK KK KEKE 
* BCRMI4 - THIS SUBROUTINE COMPUTES THE NODAL TEMPERATURES AT * 
* THE INNER SURFACE OF THE MID-LAYERS (2 THRU NLAYER-1) * 
* OF A RIGHT-CIRCULAR CYLINDER USING BRIAN'S METHOD OF * 
* FINITE DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL * 
* COORDINATES. * 
KKK KKK KK KKK KKK KKK KK KKK KKK KKK KEK KKK KEK KK KEK KEK KE KK EK KK KKKKKKKEKEKEK 


PROGRAM LINE 2508 

SUBROUTINE BCRMI4 (TNEW) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON /CONDUC/ DKR, DKP, DKZ 

COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON /PARAMS/ CSUBP, RHO 

COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

SOMMON| (LEMP Ss) ell i215, 4, 25 hey te, 19,2 LO TINE, TSUR 
x*x BODY xxx 

Bil (DKP*DZ**2) / (DKZ*RAD* (RAD+DR/4) *DPHI**2) 

D2 (2*DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 

D3 = (2*RAD*DZ**2) / (DKZ* (RAD+DR/4) *DR) 

*** NO D4 REQUIRED *** 

DS SIGMA* (T1+TSUR) * (T1**2+TSUR**2) 

D6 1 + FO*D3* (HSUBI + D5*EPSUBI) 


TNEW = 1/D6*(T1 + FO*((T2+T3-2*T4) + D1* (T5+T6-2*T7) 
ToD 2* (lobe) aos (oPoUn lt + HoUpl Tf INt sto *hPSUBI*TSUR) )) 


RETURN 


CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


COG Gree Oa) 


BCRMM1 FORTRAN A - (REV. 11/16/88) 


KEK K KEK KEK KKK KEK KKK EK KKK KKK KEKE KK KKK KEKE KKK KKK KEKE KK KKK KKK KK KEK KK KKKEKKKEK 


Beso ehMM i > THIS SUBROUTINE COMPUTES THE COEFFECIENTS FOR NODES AT* 


THE MIDSRADT Onli be Mi D-LAYERGOe(2.THRU NLAYERS-1 ) ‘s 
ia OF A RIGHT-CIRCULAR Cx GINDER FOR THE FIRST INTERMEDIATE* 
il STEP (RADIAL DIRECTION) IN BRIAN'S METHOD OF FINITE ms 
a DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL ie 
il COORDINATES. ‘ 
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oc 
END 
e 


kkk kK KK KKK KK KK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK 


PROGRAM LINE 2543 

SUBROUTINE BCRMM1 (A,B,C,D) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON /CONDUC/ DKR, DKP, DKZ 

COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 


COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON /PARAMS/ CSUBP, RHO 

COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON /TEMPS/ 921,172,923, 14, 15406, D7 700209 10) TINE roe 
kk BODY kkk 

Dl = (DKP*DZ**2) / (DKZ*RAD**2*DPHI**2 

D2 = (DKR* (RAD-DR/2) *DZ**2) / (DKZ*RAD*DR**2) 

D3 = (DKR* (RAD+DR/2) *DZ**2) / (DKZ*RAD*DR**2) 


A = -D1*FO/2 

B 1 + D1*FO 

C = -D1*FO/2 

D = Tl + FO/2* (D1* (T2+T3-2*T1) 
RETURN 


+ D2 (14-1) wero To- Te) 


CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


COOOL Ore O20) sO 


a9 
END 
& 


BCRMM2 FORTRAN A —- (REV. 10/12/88) 


KKK KEK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KE KKKK KKK KK KKK KEK 


* BCRMM2 - THIS SUBROUTINE COMPUTES THE COEFFECIENTS FOR NODE ce 


* THE MID-RADII OF THE MID~-LAYERS (2 THRU NLAYERS-1) 

* OF A RIGHT-CIRCULAR CYLINDER FOR THE SECOND INTERMED- * 
* IATE STEP (PHI DIRECTION) IN BRIAN'S METHOD OF FINITE * 
* DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL * 
* COORDINATES. . 
KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KK KKK KKK KKK KKK KKK KKK KKKKEKKKKEKKKKKK 


PROGRAM LINE 2575 

SUBROUTINE BCRMM2 (A,B,C,D) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON /CONDUC/ DKR,DKP,DKZ 

COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON /HEAT/ ALFA, FO, QPSUBN, OQPSUBS, QPSUBI, QPSUBO 

COMMON /PARAMS/ CSUBP, RHO 

COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON /TEMPS/ ~ 71,712,737) 04715, 16,07, tonto 210 Piao 
xkKkx* BODY kkk 


Dl = (DKP*DZ**2) / (DKZ*RAD**2*DPHI**2) 

D2 = (DKR* (RAD-DR/2) *DZ**2) / (DKZ*RAD*DR**2) 
D3 = (DKR* (RAD+DR/2) *DZ**2) / (DKZ*RAD*DR**2) 
A = -D1*FO/2 

B= 1+ D1*FO 


C = -D1*FO/2 
D= Tl + FO/2* ((T24T3-2*T4) 
RETURN 


+ D2*(T5-T1) + D3*(T6-T1)) 


CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
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OO Aa Oe OOO 


B'8 
END 
e 


BCRMM3 FORTRAN A - 


(REV. 11/16/88) 


KEK KKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KEKE 


ese oe et rlo  oUBROULINESCOMEUIES THE CORPFECIENTS FOR NODES AT* 


* 


4+ 4 


* 


THE MID-RADII OF THE MID-LAYERS (2 THRU NLAYERS-1) 
OF A RIGHIT-CIRGCULAR CYLINDER FOR THE THIRD INTERMED- 
PATE STEP (2 DIRECTION) IN BRIAN’ S METHOD OF FINITE 
DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL 
COORDINATES. 


+ + + % 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KEKE KKK KEKE KKEKKKKK KKK KKK 


PROGRAM LINE 2607 


SUBROUTINE BCRMM3 
Pe bICiIT DOUBLE PRECISION 


COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
S 


(A,B,C,D) 

(A-H, O-Z) 

/CONDUC/ DKR, DKP,DKZ 

/CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 

/GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
/HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
/PARAMS/ CSUBP, RHO 

/RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
PIEMPS/ Tl 12-13- 74-15. To. Tree Toe TLO- LINE, TSUR 
kk BODY kan 


Pie (DKP*DZ**2) / (DKZ*RAD~*2*DPHI*=Z) 


D2 
D3 
A 
B 


(DKR* (RAD-DR/2) *DZ**2) / (DKZ* RAD *DR* *2) 
(DKR* (RAD+DR/2) *DZ**2) / (DKZ*RAD*DR* *2) 
-D2*FO/2 
1 + FO/2* (D2+D3) 


C = -D3*FO/2 


Bee Tl + FO/2* ({12473-2-7T4) 


RETURN 


eine 16-2 17) ) 


0 SS SS SSS SISN EERE Sepispereperspercperspepspersrersporsporsrereyerorepepeperorers weber pepeporspetemeropeteyeperebererepebeye) 


A @ Eel © I @ ii © LO 1a AO es @ kas @) 


BCRMM4 FORTRAN A - 


(REV. 11/16/88) 


KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKKKK 


* BCRMM4 


* 


x 


* 


* 


KEKE KKK KKK KKK KK KKK KK KKK KKK KKK KKK KKK KK KEKE KEK KKK KKK KK KKK KKK 


- THIS SUBROUTINE COMPUTES THE NODAL TEMPERATURES AT 
THe MIiblkeae fl Obs tnEs MID=-LAYERS (2 THRU NLAYER-1) 


OF A RIGHT-CIRCULAR CYLINDER USING BRIAN'S METHOD OF 


FINITE DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL 
COORDINATES. 


PROGRAM LINE 2572 


SUBROUTINE BCRMM4 
TMeLICIT DEUBLE PRECISION 


COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
C 

ea 
D2 
DS 


(TNEW) 

(A-H, O-Z) 

/CONDUC/ DKR, DKP,DKZ 

/CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 

/GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
/HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
/PARAMS/ CSUBP, RHO 

/RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
PIEME Sys 11,72, To eet, Tonle te, £90110, TINE, TSUR 
kkxx BODY zxxkx 


(DKP*DZ**2) / (DKZ*RAD**2*DPHI**2) 
(DKR* (RAD-DR/2) *DZ**2) / (DKZ*RAD*DR**2) 
(DKR* (RAD+DR/2) *DZ**2) / (DKZ*RAD*DR* *2) 
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* 
x 
* 
* 
bs 
* 


@ x*** NO D4, DS OR D6 REQUIRED *** 
TNEW = Tl + FO*((T24+T3-2*T4) + D1* (T5+T6-2*T7) + D2* (T8-T10) 
ig + D3* (T9-T10) ) 
@ 
998 RETURN 
END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKEK 


€ 

é BCRMO1 FORTRAN A - (REV. 11/16/88) 

©) KKK KKK HK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK 
C * BCRMO1l - THIS SUBROUTINE COMPUTES THE COEFFECIENTS FOR NODES AT* 
‘s x THE OUTER SURFACE OF THE MID-LAYERS * 
C * OF A RIGHT-CIRCULAR CYLINDER FOR THE FIRST INTERMEDIATE* 
@ * STEP (RADIAL DIRECTION) IN BRIAN'S METHOD OF FINITE * 
C * DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL * 
C * COORDINATES. * 
‘Ss 

C 


PROGRAM LINE 2604 

SUBROUTINE BCRMO1 (A,B,C,D) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON /CONDUC/ DKR, DKP,DKZ 

COMMON /CONVEC/ HSUBN,HSUBS,HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON /PARAMS/ CSUBP, RHO 

COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON /TEMPS/ 71,772,173, 174, fo, 26,17 700, 19 710-7 bie toe 
Cc kKkex BODY xkkx* 


Dl = (DKP*DZ**2) / (DKZ*RAD* (RAD-DR/ 4) *DPHI**2) 

D2 = (2*DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/ 4) *DR**2) 

D3 = (2*RAD*DZ**2) / (DKZ* (RAD-DR/4) *DR) 
e x**x NO D4 REQUIRED *** 

DS = SIGMA* (T1+TSUR) * (T1**2+TSUR**2) 

A = -FO/2 

B= 1 + FO/2*(2 + D3* (HSUBO+D5*EPSUBO) ) 

C = -FO/2 

D = T1 + FO/2* (D1* (T2+T3-2*T1) + D2*(T4-T1) 

1 + D3*(QPSUBO + HSUBO*TINF + D5*EPSUBO*TSUR) ) 
998 RETURN 
END 
e 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSooGScSoCoSSSoooso oo 
G 
( BCRMO2 FORTRAN A - (REV. 11/16/88) 
(ee KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KEKE KKKKKKKKKKK 
C * BCRMO2 - THIS SUBROUTINE COMPUTES THE COEFFICIENTS FOR NODES AT* 
e * THE OUTER SURFACE OF THE MID-LAYERS * 
2 * OF A RIGHT-CIRCULAR CYLINDER FOR THE SECOND INTERMED- * 
c * IATE STEP (PHI DIRECTION) IN BRIAN'S METHOD OF * 
a * FINITE DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL * 
2 * COORDINATES. ; 
@ KKK KKK KKK KKK KK KK KK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKK 
C PROGRAM LINE 2639 


SUBROUTINE BCRMO2 (A,B,C,D) 
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IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON /CONDUC/ DKR, DKP,DKZ 

COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 


COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON /PARAMS/ CSUBP, RHO 

COMMON /RADN/  EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON /TEMPS/ T11,T2,1T3,T4,T5,T6,T7,T8,T9,T10,TINF, TSUR 


(es xxx BODY xkkxx 
D1 (DKP *DZ**2) / (DKZ*RAD* (RAD-DR/4) *DPHI**2) 
D2 (2*DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 
D3 = (2*RAD*DZ**2) / (DKZ* (RAD-DR/4) *DR) 

c *** NO D4 REQUIRED *** 
DS = SIGMA* (T1+TSUR) * (T1**2+TSUR**2) 
A = -D1*FO/2 
B= 1 + FO/2*(2*D1 + D3*(HSUBO + DS5*EPSUBO) ) 
C = -D1*FO/2 

D = Tl + FO/2* ((T2+T3-2*T4) + D2*(T5-T1) 

ih 

RE 


PDS Ors @mr HoUS@s LINE =) DO*EPSUBO*TSUR) ) 
998 
END 
C 
Met oS SS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS5 


TURN 


BCRMO3 FORTRAN A - (REV. 11/16/88) 
KKK KK KEK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKK 
* BCRMO3 - THIS SUBROUTINE COMPUTES THE COEFFICIENTS FOR NODES AT* 
x THE OUTER SURFACE OF THE MID-LAYERS * 
OF A RIGHT-CIRCULAR CYLINDER FOR THE THIRD INTERMED- * 
IATE STEP (RADIAL DIRECTION) IN BRIAN'S METHOD OF * 
FINITE DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL * 
* 
* 


+ + © 


* COORDINATES. 
KKEKKK KK KKK KKK KKK KKK KKK KKK KKK K KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK 
PROGRAM LINE 2674 
SUBROUTINE BCRMO3 (A,B,C,D) 
IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
COMMON /CONDUC/ DKR, DKP,DKZ 
COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 
COMMON /GEOMET/ DPHI,DR,DZ,RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON /PARAMS/ CSUBP, RHO 
COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON /TEMPS/ T1,T72,173,14, Toatonl) 18709, T10,TINE,TSUR 
c k*K* BODY kkk 

D1 (DKP*DZ**2) / (DKZ*RAD* (RAD-DR/4) *DPHI**2) 

D2 (2*DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

D3 = (2*RAD*DZ**2) / (DKZ* (RAD-DR/ 4) *DR) 
(@ **x* NO D4 REQUIRED *** 

DS = SIGMA* (T1+TSUR) * (T1**2+TSUR* *2) 

A = =-D2*FO/2 
1 + FO/2* (D2 + D3* (HSUBO + D5*EPSUBO) ) 
0.D+00 
Tl + FO/2* ((T2+T3-2*T4) + D1* (T5+T6-2*T7) 

+ D3* (QPSUBO + HSUBO*TINF + DS*EPSUBO*TSUR) ) 


CO OF OOO OO O:8 


ro wD 
i 


eye RETURN 
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END 


YO 0 OOOO eo 


al 
: 
998 
END 
Cc 
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BCRMO4 FORTRAN A - (REV. 11/16/88) 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KK KEK KK KKK KEKE KKK KKKKKKKKKKKE 


* BCRMO4 - THIS SUBROUTINE COMPUTES THE NODAL TEMPERATURES AT a 
* THE OUTER SURFACE OF THE MID-LAYERS 3 
- OF A RIGHT-CIRCULAR CYLINDER USING BRIAN'S METHOD OF * 
> FINITE DIFFERENCE ANALYSIS IN 3-D POLAR-CYLINDRICAL x 
* COORDINATES. m 
TESCCCSCLCCCCLCCSCCS SSL SSCL L SSS SS SS CC CCC CSCS SS CSCS SSCS SSSSS LSS eS eo 


PROGRAM LINE 2708 

SUBROUTINE BCRMO4 (TNEW) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON /CONDUC/ DKR, DKP, DKZ 

COMMON /CONVEC/ HSUBN, HSUBS, HSUBI, HSUBO 

COMMON /GEOMET/ DPHI,DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON /PARAMS/ CSUBP, RHO 

COMMON /RADN/ EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON /TEMPS/ <T1, 72,173, 1415776, 17] se 0o, flO hint Suir 
xkx BODY xxx 


Dl = (DKP*DZ**2) / (DKZ*RAD* (RAD-DR/4) *DPHI**2) 
D2 = (2*DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/ 4) *DR**2) 
D3 = (2*RAD*DZ**2) / (DKZ* (RAD-DR/4) *DR) 


x*** NO D4 REQUIRED *** 
DS = SIGMA* (T1+TSUR) * (T1**2+TSUR**2) 
D6 = 1 + FO*D3*(HSUBO + D5*EPSUBO) 
TNEW = 1/D6*(T1l + FO* ((T2+T3-2*T4) + D1* (T5+T6-2*T7) 
+ D2*(T8-T9) + D3*(QPSUBO + HSUBO*TINF + D5*EPSUBO*TSUR) ) ) 


RETURN 


CSS SSeS SS SSS SS SSS SSS SSS SSS SSS SSS SSS SSSSSs SSS SSSSSSSSSSSSSSooSb esos ose 


QAaQAAQADAAN 


300 
200 
100 
998 
END 


MAP122 FORTRAN A - (REV. 10/04/88) 


KKK KKK KKK KKK KK KKK KKK KK KKK KK KKK KKK KKK KKK KKK KKKKKKKKKEKKKKKK 


* MAP122 - SUBROUTINE TO MAP MATRIX ONE ONTO MATRIX TWO * 

KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK HK KK KKK KKK KEK KKK KKK 

PROGRAM LINE 2737 

SUBROUTINE MAP122 (DMAT1,DMATZ2) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON /ARRSIZ/ III,JJJ,KKK 

COMMON /MATSIZ/ NLAYER, NODES, NPHI 

DIMENSION DMAT1 (III, JJJ,KKK) ,DMAT2 (III,JJJ,KKK) DO 100 LAYER=1,KKK 

DO 200 IPHI=1,JJJ 

DO 300 INCRAD=1,III 

DMAT2 (INCRAD, IPHI, LAYER) = DMAT1(INCRAD, IPHI, LAYER) 
CONTINUE 

CONTINUE 
CONTINUE 
RETURN 
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TRIDAG FORTRAN A (REV. 11/07/88) 

KKK KK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK 
* TRIDAG - SUBROUTINE FOR SOLVING A SYSTEM OF LINEAR, 
SIMULTANEOUS EQUATIONS HAVING A TRIDIAGONAL 
COEFFICIENT MATRIX. THE EQUATIONS ARE NUM- 
BERED FROM IF THROUGH L, AND THEIR SUBDIAGONAL, 
DIAGONAL, AND SUPER-DIAGONAL COEFFICIENTS ARE 
STORED IN THE VECTORS A, B, AND C. THE COM- 
PUTED SOLUTION VECTOR V(IF)...V(L) IS STORED 

* IN THE VECTOR V. 

KKK KKK HHH KKK KKK KR KK KKK KK KKK KK KKK KKK KKK KK KKK K KKK KAKA KK 
PROGRAM LINE 2766 

SUBROUTINE TRIDAG (IF,L,A,B,C,D,V) 

IMPLICIT DOUBLE PRECISION (A-H,0O-Z) 

POMENSION A(L),B(L),C(L),D(L),V(L) 

DIMENSION BETA(100) , GAMMA(100) 


4% 4 4+ 4% 4 
4+ 4+ 4 4+ 4+ + © 4 


POM OO BOS WO OG 2A OG Me Te 7 oe: 


C 
€ **x* COMPUTE INTERMEDIATE ARRAYS BETA AND GAMMA *** 
@ 

BETA(IF) = B(IF) 

GAMMA(IF) = D(IF) /BETA(IF) 

IFP1 = IF +1 

DO 100 I=IFP1,L 

BETA(I) = B(I) - A(I)*C(1I-1) /BETA(I-1) 

100 GAMMA(I) = (D(I) - A(I) *GAMMA(I-1) ) /BETA(I) 
Ec 
C *** COMPUTE FINAL SOLUTION VECTOR V *** 
(@ 

V(L) = GAMMA (L) 

LAST = L - IF 

DO 200 K=1,LAST 

ie= 1 = K 

200 V(I) = GAMMA(I) - C(I) *V(I+1) /BETA(I) 
RETURN 
END 
‘e 
Mee OSS CoS OS SOS SSCS SSS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
© 
e COMPARE FORTRAN A - (REV. 11/05/88) 
jC RAK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KK KKK KKK KK KKK KK KKH 
e * COMPAR - SUBROUTINE TO COMPARE THE RESULTS OF BRIAN'S * 
C * METHOD AGAINST THE RESULTS OF THE EXPLICIT * 
C * METHOD FOR A GIVEN GEOMETRY AND BOUNDARY * 
C * CONDITIONS. CAN BE CALLED FROM EVALID ONLY. * 
e KKK KKK KK HK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKAKKKKKKEKS 
C PROGRAM LINE 2800 


SUBROUTINE COMPAR 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
DAMENWoG LON PE(15, 135,15) 

REAL TIME 

OPEN (UNIT=11, FILE='EBCMP') 

OPEN (UNIT=14, FILE='BCRDAT') 


Po 


OPEN (UNIT=15, FILE='ECRDAT') 

ICOUNT = 0 

JCOUNT = 0 

READ (14, *) NODES, NPHI,NLAYER 

READ (15, *)) EE, MM NN 

WRITE (*,*) ‘MATRIX 1 SIZE: ',NODES, NPHI,NLAYER WRITE (*,%) ‘MATRIX 
2 SIZE: ', LE MM ANN 

WRITE (*,*) 

IF ((NODES.NE.LL) .OR. (NPHI.NE.MM) .OR. (NLAYER.NE.NN)) THEN WRITE 
(x, *) '*** ABORTED COMPARE - ARRAY SIZES OF UNEQUAL LENG 1TH ***' 


GOTO 998 
ENDIF 
1 WRITE (11,5) 
5 FORMAT (Tl, 'COMPARISON OF BRIAN''S METHOD TEMPERATURES 


300 
200 
100 


998 


END 


AGAINST EXP 1LICIT METHOD TEMPERATURES'/,T1, 'EXPRESSED AS A 
PERCENTAGE DIFFEREN 2CE'//) 
WRITE (11,%*) 'BCRSAT! 
WRITE (11, *) 
WRITE (11,*) '*** 999.0 INDICATES ZERO VALUE AS DIVISOR ***! 
WRITE (11, *) 
WRITE (11, *) 
2 READ (14,*,END=998) BTIME, BDTIME 
ICOUNT=ICOUNT+H1 
ITIME=BTIME 
READ (15,*,END=998) ETIME, EDTIME 
JCOUNT=JCOUNT+1 
JTIME=ETIME 
IF (ITIME.NE.JTIME) THEN 
WRITE (*,*) '*** ABORTED COMPARE - TIME MISMATCH ***' WRITE (*,*) 
ITIME, EDTIME 
WRITE (*,*) JTIME, BDTIME 
GOTO 998 
ENDIF 
DO 100 K=1,NLAYER 
DO 200 I=1,NODES 
DO 300 J=1,NPHI 
READ (14,*) DMAT1 
READ (15,*) DMAT2 
IF (DMAT2.NE.0) THEN 
PE(I,J,K) = (DMAT1-DMAT2) /DMAT2 * 100 ELSE 
PE (IJ, K)- = 2999) 
ENDIF 
CONTINUE 
CONTINUE 
CONTINUE 
CALL PRTARR (BTIME, BDTIME, PE,NODES, NPHI,NLAYER) GOTO 2 
IF (ICOUNT.NE.JCOUNT) THEN 
WRITE (*,*) 'COMPAR - EOF ERROR ON PROGRAM LINE 2431 OR 2433' 
WRITE(11,*) 'COMPAR - EOF ERROR ON PROGRAM LINE 2431 OR 2433' 
ENDIF 
CLOSE ai) 
CLOSE (14) 
CLOSE (15) 
RETURN 
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eae a a Ora a a 


300 
200 
100 


oe) 


GOTO 2 


Bt 5 90D DO SOOO oS OOOO OSS o OS Sooo SOS OS DO OOS SOS OSS OOS SSSSSSSSSSSSSSSSS 


SHTFRM FORTRAN A - (REV. 11/14/88) 

KKK KKK KKK KKK KKK KKK KK KEKE KKK KKK KKK KK KKK KKEEKEK 

* SHTFRM - SUBROUTINE TO PRINT THE TEMPERATURES OF A DESIG- * 

* DESIGNATED NODE FROM A DATA FILE. * 
KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK 
PROGRAM LINE 2871 

SUBROUTINE SHTFRM (L,M,N) 

IMPLICIT DOUBLE PRECISION (A-H, 0-Z) 

COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO COMMON /TIMES/ 
DELTIM, DTMAX, FINTIM, LIMIT 

DIMENSION TEMP (15,15,15) 

OPEN (UNIT=13, FILE='ANALYT') 

OPEN (UNIT=14, FILE='BCRDAT') 

OPEN (UNIT=15, FILE='BCRSHT') 

READ IN MATRIX SIZE 

READ (14,%*) NODES,NPHI,NLAYER 

WRITE HEADERS TO DATA FILE 15 (ERROR) 

WRITE (15,%*) 'BCRSAT - WITH CONDUCTION, CONVECTION AND RADIATION' 
WRITE (15, *) 

WRITE (15,*) 'DATA SAVED AS FILE:' 

WRITE (15, *) 

Werte (15, %) “CPU TIME:$ 

WRITE (15, *) 

WRITE (15,*)'GRID SIZE (RADIAL, PHI,Z2 DIRECTIONS): ',NODES,NPHI,NLAY 
1ER 

WRITE (15, *) 

WRITE (15,%*) 'SELECTED NODE FOR PRINTOUT:',L,M,N WRITE (15,*) 
WRITE (15,*) 'THEORETICAL MAX TIMESTEP (EXPLICIT):',DTMAX WRITE 
(i>, *) 

WRITE (15,*) ‘SELECTED TIMESTEP (SEC):',DELTIM WRITE (15, *) 
WRITE (15,*) 'GRID FOURIER NUMBER (Z,DELTIM DEPENDENT): ',FO WRITE 
i *) 

WRITE (15,%*) ‘OUTER SURFACE HEAT FLUX (W/M**2):',QPSUBO WRITE 
GES; ) 

WRITE (15, *) 

WRITE (15,15) 


ie, FORMAT (123), NODE.) 
WEI E (NS, 25) 
Zo RORMAT (25,7. 2iME 7 bi? DELI eM 1s0, ‘TEMPERATURE ') 


READ TIME, DELTIM AND TEMPERATURE MATRICES FROM FILE 14 (*DATA) 2 

READ (14, *,END=998) TIME,DELTIM 

DO 100 K=1,NLAYER 

DO 200 I=1,NODES 

DO 300 J=1,NPHI 

READ (14, *,END=997) TEMP (I,J,K) 

CONTINUE 

CONTINUE 

CONTINUE 

WRITE (15,55) TIME, DELTIM, 1eMP tl, M,N) 
FORMAT (T1,F9.2, 1le boo 7l26, et 4 oe) 
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"ERROR - EOF READ ERROR ON PROGRAM LINE 864! WRITE 
998 CLOSE (he) 


ee) I! 
(es) 
CLOSE 
CLOSE 
RETURN 
END 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS555 


WRITE 
‘ERROR - EOF READ ERROR ON PROGRAM LINE 864' 
(14) 

(15) 


oe) 


LNGFRM FORTRAN A - (REV. 11/05/88) 

KKK KKK KK KKK KKK KKK KK KKK KK KKK KKK KE KKK K KKK KKK KKK KKK KKK 
* LNGFRM - SUBROUTINE TO PRINT FULL MATRIX OF TEMPERATURES * 
* FROM DATA FILES. * 
KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KK KKK KK KKK 
PROGRAM LINE 2933 

SUBROUTINE LNGFRM 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON /TIMES/ DELTIM, DTMAX, FINTIM, LIMIT 

DIMENSION TEMP (15,15,15) 

OPEN (UNIT=11,FILE='BCRLNG') 

OPEN (UNIT=14, FILE='BCRDAT') 

READ (14,*) NODES,NPHI,NLAYER 


COG OC): 


WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
iE 
WRITE 
WRITE 
(11, *) 
WRITE 
WRITE 
(i) 
WRITE 
WRITE 
i 


READ 


(P=) 
eee 
(11, *) 
a? 
(11, *) 
ae) 
EE) 


ota a) 
(il, *) 


Ce 
Ce) 


ey) 
(eS) 


(14, *, END=998) 


"BCRSAT - WITH CONDUCTION, CONVECTION AND RADIATION' 
"DATA SAVED AS FILE:' 
“CPU TIME: * 


"GRID SIZE (RADIAL, PHI,Z DIRECTIONS): ',NODES,NPHI,NLA 


"THEORETICAL MAX TIMESTEP (EXPLICIT): ‘',DTMAX WRITE 


"SELECTED TIMESTEP (SEC) =", DELIIM WRITE (lias 
"GRID FOURIER NUMBER (Z,DELTIM DEPENDENT): ',FO WRITE 


"SURFACE HEAT FLUX (W/M**Z) > *, OPSUBG WRITE ee) 


TIME, DT IME 


DO 100 K=1,NLAYER 
DO 200° I=1 NODES 
DO 300 J=1,NPHI 


READ 


(14, ae END=997) 
CONTINUE 

CONTINUE 
CONTINUE 
CALL PRTMAT (TIME, DTIME, TEMP, NODES, NEH1, NEAYER) 
997 WRITE. (6, 20 0)0 yn 
996 FORMAT (1X, 'LNGFRM: READ BEYOND DATA IN 
REWIND 14 
CLOSE (11) 
RETURN 
END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS5SSSSSS000Sc0S ooo e ee 


TEMP (1, a> Kh) 
300 
200 
100 
GOTO 1 

Bara) 


*DATA (1,J0;,8) ", OOS 
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Ole Ok Oi @ el @ sl @ i ®) 


is) 


10 
7g) 


200 
100 


998 


g 


OG i 2S Oe ei O11 @) 


i> 


10 


Zo 
200 
100 


998 
END 
c 


PRTMAT FORTRAN A - (REV. 11/04/88) 
KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KEK KEKE KKK KKKKEKKEK 
* PRTMAT - SUBROUTINE TO PRINT THREE DIMENDIONAL MATRIX * 
TO FILE 11 (*LONG). * 
KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KEKE KEK EKEKKKKKEKKEKKEKKEKEEKEKEK 
PROGRAM LINE 2984 
SUBROUTINE PRTMAT (TIME,DTIME,DMAT,NODES,NPHI,NLAYER) IMPLICIT 
DOUBLE PRECISION (A-H, 0-2) 
BIMENSION DMAT(15, 15,15) 
WRITE (11,15) TIME,DTIME 
HORMAT (T1, "TIME = *,F9.3,' SEC',T30, "TIME INCREMENT = ',F9.3,' SE 
pe) 
DO 100 K=1,NLAYER 
WRITE(11,10) K 

FORMAT (//T1,'NODE:',1T45,'LAYER NUMBER: ',14/) DO 200 I=1,NODES 
WRITE (11,25) I, (DMAT(I,J,K) ,J=1,NPHI) 

FORMAT (T1,13,T10,4(D16.10,1X) ) 

CONTINUE 
CONTINUE 
WRITE (11,*) 
WRITE (11,*) 
RETURN 


2 SS ES SS SSSR ISS SSSI S SSRIS SN els yersiopeepeyeye rei Sie pepepelreys roles) evs) eys}epeyeyeyereyeyepeperes 


PRTARR FORTRAN A - (REV. 11/04/88) 
KEKE KKK KKK KK KKK KEK KKK KEKE K KKK KEKE KEK KEKE KKEKKEKKKEEK 
* PRTARR - SUBROUTINE TO PRINT THREE DIMENDIONAL MATRIX * 
* TO FILE 17 (ALONG). * 
KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK 
PROGRAM LINE 3011 
SUBROUTINE PRTARR (TIME,DTIME, DMAT,NODES,NPHI,NLAYER) IMPLICIT 
DOUBLE PRECISION (A-H, 0-2) 
DIMENSION DMAT(15,15,15) 
WRITE (11,15) TIME, DTIME 
FORMAT (T1,'TIME = ',F9.3,' SEC',T30, 'TIME INCREMENT = ',F9.3,' SE 
et) 
Bo 100 K=1,NLAYER 
WRITE(11,10) K 

FORMAT (//T1, 'NODE:',T45, 'LAYER NUMBER: ',14/) DO 200 I=1,NODES 
WRITE (11,25) I, (DMAT(I,J,K),J=1,NPHI) 

BORMAT. (T1¢0 3. Tl Oe (F923 cy) 

CONTINUE 

CONTINUE 


Whites (li, *) 
WeitE, Ail, *) 
RETURN 


Mt 0 I 090099050000 DD OOO OD OOD SOS SOS SOS OO SoS ooo Soo Se SS SSSSSSSSSSSSSSSS 


ec 
C 


ERROR FORTRAN A - (REV. 11/05/88) 
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‘& KKK KKK KI KKK KKK KH KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKK 
€ * ERROR - SUBROUTINE TO COMPUTE ERROR FOR AND PRINT TEMPERA- * 
e * TURES OF A DESIGNATED NODE FROM A VALIDATION DATA * 
G * FILE, * 
Cc KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK 
e PROGRAM LINE 3039 
SUBROUTINE ERROR (L,M,N) 
IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
COMMON /HEAT/ ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON /TIMES/ DELTIM, DTMAX, FINTIM, LIMIT 
DIMENSION TEMP (15,15,15) 
REAL TIME 
OPEN (UNIT=13, FILE='ANALYT') 
OPEN (UNIT=14, FILE='BCRDAT') 
OPEN (UNIT=15, FILE='BCRERV') 
IF (((QPSUBO.GT.1352) .AND. (QPSUBO.LT.1354) ) .OR. ( (QPSUBO.GT.14999) . 
1AND. (QPSUBO.LT.15001))) THEN 
CONTINUE 
ELSE 
GOTO 998 
ENDIF 
c READ IN MATRIX SIZE 
al READ (14,%*) NODES,NPHI,NLAYER 
Cc WRITE HEADERS TO FILE 15 (*ERROR) 
WRITE (15,*) 'BCRSAT - WITH CONDUCTION, CONVECTION AND RADIATION' 
WRITE (15, *) 
WRITE (15,*) "DATA SAVED AS FILE:' 
WRITE (15, *) 
WRITE: (15 3%) 7" Cou, IME. 
WRITE (15, *) 
WRITE (15,*)'GRID SIZE (RADIAL, PHI,Z DIRECTIONS) :', NODES, NPHI,NLAY 
1ER 
WRITE (15,*) 
WRITE (15,*) 'SELECTED GRID POINT :',L,M,N 
WRITE (15, *) 
WRITE (15,*) ‘THEORETICAL MAX TIMESTEP (EXPLICIT):',DTMAX WRITE 
CTs, 7) 
WRITE (15,*) 'SELECTED TIMESTEP (SEC):',DELTIM WRITE (15, *) 
WRITE (15,*) 'GRID FOURIER NUMBER (Z,DELTIM DEPENDENT): ',FO WRITE 
(15, *) 
WRITE (15,*) 'OUTER SURFACE HEAT FLUX (W/M**2):', QPSUBO WRITE 
(25; ) 
WRITE (15,*) 
WRITE (15,15) 
15 FORMAT (T33, ‘NODE',T48, 'ANALYTIC', 1764, 'PERCEN? ") White els, coy 
25 FORMAT (T5, 'TIME',T17, 'DELTIM', T30, 'TEMPERATURE',T46, 'TEMPERATURE' 
i T65, ERROR "> 
€ READ TIME, DELTIM AND TEMPERATURE MATRICES FROM FILE 14 (*DATA) 
2 READ (14,*,END=998) TIME, DELTIM 
DO 100 K=1,NLAYER 
DO 200 I=1,NODES 
DO 300 J=1,NPHI 
READ (14, *,END=995) TEMP (I,J,K) 
300 CONTINUE 
200 CONTINUE 
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100 CONTINUE 
Cc READ IN APPROPRIATE ANALYTIC SOLUTIONS FROM FILE 13 (ANALYT) 
IF (QPSUBO.LT.1400) THEN 
READ (13,35,END=996) EXACT 
35 FORMAT (T19,F14.8) 
ELSE 
READ (13, 45,END=997) EXACT 
45 FORMAT (T39,F14.8) 
ENDIF 
@ COMPUTE PERCENT ERROR AND WRITE TO FILE 15 (ERROR) 
PE = (EXACT-TEMP(L,M,N))/EXACT * 100. 
WRITE (15,55) 
TIME, DELTIM, TEMP (L,M,N),=XACT,PE 55 FORMAT 
(tier S20, T) 58.4, 026,F14.8,7T49-F14,8,T61,F9.3) GOTO 2 
995 WRITE (*,*) ‘ERROR - EOF READ ERROR ON PROGRAM LINE 2515' 
WRITE (15,*) ‘ERROR - EOF READ ERROR ON PROGRAM LINE 2525! 
996 WRITE (*,*) ‘ERROR - EOF READ ERROR ON PROGRAM LINE 2521' 
WRITE (15,*) ‘ERROR - EOF READ ERROR ON PROGRAM LINE 2521' 
997 WRITE (*,*) ‘ERROR - EOF READ ERROR ON PROGRAM LINE 2514' 
WRITE (15,*) ‘ERROR - EOF READ ERROR ON PROGRAM LINE 2524' 
998 CLOSE (13) 
CLOSE (14) 
GLOSE (15) 
RETURN 
END 
E 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
‘e 
€ CMPSHT FORTRAN A - (REV. 11/22/88) 
Cc KKK KK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKKKKK KKK KK KKK KKK 
@ * CMPSHT - SUBROUTINE TO COMPARE THE RESULTS OF BRIAN'S * 
Cc * METHOD AGAINST THE RESULTS OF THE EXPLICIT * 
e x METHOD FOR A GIVEN GEOMETRY AND BOUNDARY * 
c * CONDITIONS. DATA SAVED IN SHORT FORMAT. * 
@ x NOTE - CALLED FROM BCRV ONLY. * 
C KKK K KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK 
€ PROGRAM LINE 3132 
SUBROUTINE CMPSHT 
IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
REAL TIME 
OPEN (UNIT=14,FILE='BCRDAT') 
OPEN (UNIT=15,FILE='ECRDAT') 
OPEN (UNIT=17,FILE='CMPSHT') 
ICOUNT = 0 
JCOUNT = 0 
READ (14,*) NODES,NPHI,NLAYER 
READ (15,%*) LL,MM,NN 
WRITE (*,*) ‘MATRIX 1 SIZE:',NODES,NPHI,NLAYER WRITE (*,*) 'MATRIX 
2 SIZE:', LL, MM, NN 
WRITE (*,*) 
IF ((NODES.NE.LL) .OR. (NPHI.NE.MM) .OR. (NLAYER.NE.NN)) THEN 
WRITE (*,*) '*** ABORTED COMPARE - ARRAY SIZES OF UNEQUAL LENGTH 
xxx" 
GOTO 998 


ENDIF 
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WRIDES (177.2) 


5 (T1, 'COMPARISON OF BRIANS METHOD TEMPERATURES AGAINST EXPLI 
1CIT METHOD TEMPERATURES'/,T1, 'EXPRESSED AS A PERCENTAGE 
DIFFERENCE 2.'/) 
WRITE (17,*) 'BCRSAT SHORT FORMAT' 
WRITE (17, *) 
WRITE? (17,*) *"SAVED AS FILEGS 
WRITE (17, *) 
WRITE (17,*) 'CPU TIME:' 
WRITE (17,*) 
WRITE (17,*) '*** 999.0 INDICATES ZERO VALUE AS DIVISOR 
xx*' WRITE (17, *) 
WRITE (17, *) 
WRITE (17,25) 
25 FORMAT (T33, 'EXPLICIT',T48, 'BRIANS',T64, 'PERCENT') WRITE (17,35) 
35 FORMAT (TS, 'TIME',T30, 'TEMPERATURE',T46, 'TEMPERATURE',T62, 'DIFFERE 
1NCE'/) 
2 READ (14, *,END=998) BTIME, BDTIME 
ICOUNT=ICOUNT+1 
ITIME=BTIME 
READ (15, *,END=998) ETIME, EDTIME 
JCOUNT=JCOUNT+1 
JTIME=ETIME 
IF (ITIME.NE.JTIME) THEN 
WRITE (*,*) '*** WARNING - TIME MISMATCH IN CMPSHT ***! 
WRITE (*,*) ITIME, BTIME 
WRITE (*,*) JTIME, ETIME 
ENDIF 
DO 100 K=1,NLAYER 
DO 200 I=1,NODES 
DO 300 J=1,NPHI 
READ (14,*) DMAT1 
READ (15,*) DMAT2 
IF ((1.EQ.NODES) .AND. (J.EQ.2) .AND. (K.EQ.NLAYER) .AND. 
1(DMAT2.NE.0)) THEN 
PE = (DMAT1-DMAT2) /DMAT2 * 100 
WRITE (17,45) BTIME,DMAT2,DMAT1,PE 45 FORMAT 
(Tl, F9.2,726,F14.6,741,F1428, 161, F9 3) ELSE 
PE = 999. 
ENDIF 
300 CONTINUE 
200 CONTINUE 
100 CONTINUE 
GOTO 2 
998 IF (ICOUNT.NE.JCOUNT) THEN 
WRITE (*,*) '"CMPSHT - EOF ERROR ON PROGRAM LINE 2431 OR 2433' 
WRITE (17,*) 'CMPSHT - EOF ERROR ON PROGRAM LINE 2431 OR 2433' 
ENDIF 
CLOSE (14) 
CLOSE “i5) 
CLOSE ta} 
RETURN 
END 
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APPENDIX G 


APPLICATION MODEL CHARACTERISTICS 


ASSUMPTIONS* 
1. Satellite 
e Three-axis stabilized 


¢ Orbit lies within and z-axis normal to the plane of the ecliptic 


2. Earth 


e Atmosphere is a diffuse scatterer of solar radiation 


e Albedo coefficient is 0.30 (nominal) 


e Emitted infrared heat flux is 237 W/m2 


e Shadow appears cylindrical from low orbits 


3. Sun 


e Diffuse, blackbody emitter of radiation 


OTHER PARAMETERS* 
Internal Heat Loading: 
Solar flux: 

Earth's IR: 


Albedo coefficient: 


Temperature of deep space: 


Geometric shape factor: 
(flat plate, 320 km) 


Surface absorptivity: 
(white paint) 
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Yi = 1000 W (avg) 
q" ow = 1353 W/m2 
Vig = 237 W/m? 
albedo = 0.30 
Mera 4. K 


P= 0.5) 


a = 0.4 (nominal) 


Surface emissivity: e=0.9 
(white paint) 


Operating Limits 
Non-op/turn-on Operating 
40/+40 K -15/+40 K 









SHADOW 
ZONE 





Figure 15. Orbit Time Numbering Sequence 


FLUX CONDITIONS 
TIME FLUX CONDITION 
Oe q 5 =@id aneCOs (ar ) 
q, = ald’ 6, +4 am COS (or) | 
df’ ,=0.5a,q’, sin (ar) 
ST igs 0 
q ,=Q, {q’,,+| a + COS (ot) |" on \ 
f= 0.50,q,sin @ ) 
1<t<t, dq , =0 


de. =a; q Fir 
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J STS 


ro < 


4 
4= P<, 


where times in seconds are: 


af =ai1q +a an Sin @ ) 


alt 


f 5 =0.5a, || +d” ., sin (or )| 
ur] 


2 8 0) ra 





alee CXD 


fy, =0 
ae =O ids wt (2 Tan sin ax’ )|} 
Go WIS Gog ae | sin (ax ) | 


t =0 

t, = 1360 
t, = 1629 
pr 157 
t= 3811 
t, = 4080 


* Taken from Agrawal [Ref. 12] 
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